hi i did it im now able to get the total list of databases

THANKS MOTIL FOR THE TIPS

Code:
Dim connStr As String = "Database=" & VDbase.Text & ";" & "Data Source=" & Vlocalhost.Text & ";" & "User Id=" & Vadmin.Text & ";Password=" & Vpass.Text
        Dim connection As New MySqlConnection(connStr)
       
        Dim command As New MySqlCommand("SHOW DATABASES;", connection)
        connection.Open()
        Dim reader = command.ExecuteReader()
        While reader.Read()
            main.group.Items.Add(reader(0).ToString())
        End While
        connection.Close()