Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles TextBox1.TextChanged
 
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
 
        Dim objConnection As OleDb.OleDbConnection = _
        New OleDb.OleDbConnection _
        ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\Freibage\WatchGuard.mdb ; Jet OLEDB:database" & _
        "Password=xy;")
        Dim cmd As New OleDb.OleDbCommand
        Dim COMM As New OleDb.OleDbCommand
 
        COMM = New OleDb.OleDbCommand("Select Vorname, Nachname FROM User")
 
        'cmd.CommandText = "Select Vorname, Nachname FROM User"
        'cmd.Connection = objConnection
 
        'TextBox1.Text = cmd.CommandText
 
    End Sub