Imports System
Imports System.Data.OleDb
 
Public Class Form1
    Public conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
      "Source=C:\pze.mdb;User Id=admin;Password=;")
    Public sql As String = "select * from Zeitbuchungen"
    Public cmd As New OleDbCommand(sql, conn)
    Public da As New OleDbDataAdapter(cmd)
    Public ds As New DataSet
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        conn.Open()
        ds.Clear()
        da.Fill(ds, sql)
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = sql
        conn.Close()
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        sql = "Select * FROM Zeitbuchungen WHERE Z_Pers_Nr=" & TextBox1.Text
        MsgBox(sql)
        conn.Open()
        ds.Clear()
        da.Fill(ds, sql)
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = sql
        conn.Close()
 
    End Sub
End Class