Dim conn As New MySqlConnection
 
        conn.ConnectionString = "SERVER=" & SRV & ";" _
                                & "DATABASE=" & DB & ";" _
                                & "UID=" & USR & ";PWD=" & PWD & ""
 
 
 
        Dim myAdapter As New MySqlDataAdapter
        Dim SQLAbfrage As String = "SELECT POS, Menge, Artikel, Einzelpreis," & _
          "Gesamtpreis FROM rmitte where RefNR='" & RefNR & "'"
        Dim myCommand As New MySqlCommand
        conn.Open()
        myCommand.Connection = conn
        myCommand.CommandText = SQLAbfrage
 
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
 
        myData = myCommand.ExecuteReader()
 
        While myData.Read
 
        msgbox (mydata(0))             
 
 
        End While
 
 
 
    End Sub

Gruß Silas