我用VB做列子
..........
dim Connstring as string
dim DS As New DataSet()
'FileName 为数据库文件名，TableName 为数据表名称。 
Sub CreateDataSet(ByVal strSQL As String, ByVal FileName As String, ByVal TableName As String)
        ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath(FileName)
        objCmd = New OleDbDataAdapter(strSQL, ConnString)
        objCmd.Fill(DS, TableName)
    End Sub