Imports System.Data.OleDb
………
………
Dim objConnection As OleDbConnection
Dim objDataAdapter As New OleDbDataAdapter
Dim objDataset As New DataSet
Dim strConn As String
Dim strSQLAs String
strConn=""
strSQL=""
objConnection = New OleDbConnection(strConn)
objConnection.Open()
objDataAdapter.SelectCommand = New OleDbCommand(strSQL, objConnection)
objDataAdapter.Fill(objDataset)
Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
MyConnection = New SqlConnection("server=(local)\NetSDK;database=pubs;Trusted_Connection=yes")
MyCommand = New SqlDataAdapter("select * from Authors", MyConnection)
DS = new DataSet()
MyCommand.Fill(ds, "作者")
MyDataGrid.DataSource=ds.Tables("作者").DefaultView
MyDataGrid.DataBind()
End Sub