Public Function GetDataSet(ByVal StrSql As String) As DataSet '返回dataset
Dim DataConnection As OleDb.OleDbConnection
Dim ConnectStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/EXAM.mdb"
Dim DataSet As Data.DataSet
Dim DataAdapter As Data.Common.DataAdapter
Dim OleDbDataAdapter As OleDbDataAdapter = New OleDbDataAdapter
Try
DataConnection = New OleDbConnection
DataConnection.ConnectionString = ConnectStr
DataAdapter = New OleDbDataAdapter(StrSql, DataConnection)
DataSet = New DataSet
DataSet.Clear()
DataAdapter.Fill(DataSet)
DataConnection.Close()
Catch
MsgBox(Err.Description)
End Try
If DataSet.Tables(0).Rows.Count > 0 Then
Return DataSet
Else
Return Nothing
End If
End Function