Private oldebConnection As OleDbConnection
Private oldebDataAdapter As OleDbDataAdapter
Private oldebCommand As OleDbCommand
Private dataSet As New DataSet
Dim conString As String
conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='../luckydb.mdb'"
oldebConnection = New OleDbConnection(conString)
sql = "select a.姓名,a.年龄 ,a.出生日期,b.籍贯,b.亲人数 from a,b"
connectionDb()
oldebCommand = oldebConnection.CreateCommand()
oldebDataAdapter = New OleDbDataAdapter(sql, oldebConnection)
oldebDataAdapter.Fill(dataSet, "drawnum")