找到了调用access数据的方法。代码如下

Imports System.Data.OleDb
Imports System.IO
Public Class Form1
    Dim cn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim cnStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\jhhj\佳航婚介1\jhhj_Database11.accdb;Persist Security Info=False;" 'access07以后的格式
        cn = New OleDbConnection(cnStr)
        Dim sql As String = "select * from 婚介成员"
        da = New OleDbDataAdapter(sql, cn)
        ds = New DataSet
        da.Fill(ds, "婚介成员")
        DataGridView1.DataSource = ds.Tables(0)
        'TODO: 这行代码将数据加载到表“Jhhj_Database11DataSet.婚介成员”中。您可以根据需要移动或删除它。
        ' Me.婚介成员TableAdapter.Fill(Me.Jhhj_Database11DataSet.婚介成员)


    End Sub   

 Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        Dim cnStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\jhhj\佳航婚介1\jhhj_Database11.accdb;Persist Security Info=False;" 'access07以后的格式
        cn = New OleDbConnection(cnStr)
        Dim sql As String = "select * from 婚介成员 where 姓名 like " & "'%" & TextBox4.Text & "%'"
        da = New OleDbDataAdapter(sql, cn)
        ds = New DataSet
        da.Fill(ds, "婚介成员")
        DataGridView1.DataSource = ds.Tables(0)
    End Sub


    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim cnStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\jhhj\佳航婚介1\jhhj_Database11.accdb;Persist Security Info=False;" 'access07以后的格式
        'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\jhhj\佳航婚介1\jhhj_Database11.mdb;Persist Security Info=False"'access07以前的格式
        'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\jhhj\佳航婚介1\jhhj_Database11.accdb;Persist Security Info=False;'access07以后的格式
        cn = New OleDbConnection(cnStr)




        Dim sql As String = TextBox3.Text
        da = New OleDbDataAdapter(sql, cn)
        ds = New DataSet
        da.Fill(ds, "婚介成员")
        DataGridView1.DataSource = ds.Tables(0)
    End Sub