Sub Query_DGV(ByRef DGV As DataGridView, ByVal RS As DataTable, ByVal SQL As _
  String)
        Dim myCommand As New MySqlCommand
        Dim myAdapter As New MySqlDataAdapter
        Try
            myCommand.Connection = conn          ' Connection zuweisen
            myCommand.CommandText = SQL          ' SQL Statement zuweisen
            myAdapter.SelectCommand = myCommand  ' Abfrage ausführen
            myAdapter.Fill(RS)                   ' Ergebnis ins Recordset 
            ' übergeben
            If DGV IsNot Nothing Then               ' wenn ein DGV übergeben 
            ' wurde ...
                DGV.DataSource = RS              ' ... Recordset ans DGV binden 
                ' (und aktualisieren)
            End If
        Catch myerror As MySqlException
            MsgBox("Fehler beim Lesen der Datenbank: " & myerror.Message)
        End Try
    End Sub

mit freundlichen Grüßen
Sven