1、 Public constr As String = "provider=microsoft.jet.oledb.4.0;data source=e:\VB.NETziliao\publicdatabase\db1.mdb"
    Public mycon As OleDbConnection = New OleDbConnection(constr)
2、Imports System.Data.oledb
dim dbset as new dataset
dbset.Clear()
        DataGrid2.CaptionText = " 所有的通讯人员信息如下："
        Dim str As String
        str = "select    from  where    "        
Dim adp As New OleDbDataAdapter(str, constr)
        adp.Fill(dbset, "aa")
        DataGrid1.DataSource = dbset.Tables("aa")
第3个问题我就无能为力了
不知以上两个问题是否满意

恩，谢谢了啊！

我去试试