第1个回答 2010-06-22
Dim sSql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Provider=SQLOLEDB.1; Data Source=数据库服务器;DATABASE=数据库;UID=XXX; pwd=123;Connect Timeout=900 "
conn.CursorLocation = adUseClient
conn.Open
sSql = "select iprod,idesc from whsitem"
rs.CursorLocation = adUseClient
rs.Open sSql, conn
DGrid.ClearFields
Set DGrid.DataSource = rs
DGrid.Refresh
希望对你有用。本回答被网友采纳