Dim gDB As Database, gRS1 As Recordset, sSQL As String
 
sSQL = "Select * from User"
Set gRS1 = gDB.OpenRecordset(sSQL, dbOpenDynaset, dbSeeChanges)
 
While Not gRS1.EOF
List1.AddItem = gRS1.fields("Name")
'oder mit
List1.AddItem = gRS1!Name
gRS1.MoveNext
Wend
 
gRS1.Close
Set gRS1 = Nothing

 Dim gDB As New MySql.Data.MySqlClient.MySqlConnection
Dim sSQL As New MySql.Data.MySqlClient.MySqlCommand
Dim gRS1 As MySql.Data.MySqlClient.MySqlDataReader
gDB.ConnectionString = "Data Source=192.168.2.22;Initial" & _
  "Catalog=sds;UID=root;PWD=123"
 
Try
sSQL.Connection = gDB
sSQL.CommandText = "Select * from User"
gDB.Open()
 
gRS1 = sSQL.ExecuteReader()
cmbUser.Items.Clear()
Do While gRS1.Read()
cmbUser.Items.Add(gRS1("name"))
Loop
gRS1.Close()
 
gDB.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try