RUN - code(VB.net/MySQL)

Module Module1

    Sub Main()

        Dim dbconnect As New DBmanager
        'dbconnect.testConnection()

        For Each row As DataRow In dbconnect.getAllUsers
            Console.WriteLine(" ID: " & row("id") & " Firstname: " & row("fname") & " Lastname: " & row("lname") & " Age: " & row("age") & " Gender: " & row("gender") & " Status: " & row("status"))
        Next


        Console.ReadLine()
    End Sub

End Module