ADO.NET 连接Access

Method 1：

Imports System.Data.OleDb
Public Class Form1
    Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Database\Access\Database3.mdb; User Id=admin; Password="
    Dim conn As OleDbConnection
    Dim oda As OleDbDataAdapter
    Dim cmd As OleDbCommand
    Dim dt As New DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Using conn = New OleDbConnection(constr)
            conn.Open()
            oda = New OleDbDataAdapter("Select * From Test", conn)
            oda.Fill(dt)
            DataGridView1.DataSource = dt
        End Using
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str As String = TextBox1.Text

        Using conn = New OleDbConnection(constr)
            conn.Open()

            cmd = New OleDbCommand
            cmd.CommandText = "SELECT * FROM Test WHERE Sticker_toolsid = @MASTCODE"
            cmd.Parameters.AddWithValue("@MASTCODE", TextBox1.Text)
            cmd.Connection = conn
            cmd.ExecuteNonQuery()

            dt = New DataTable
            oda = New OleDbDataAdapter(cmd)
            oda.Fill(dt)
            DataGridView2.DataSource = dt
        End Using
    End Sub
End Class

Method 2：
查找特定记录