Private Sub CmdExecute_Click()
    Dim strSql As String
    Dim rstSql As New ADODB.Recordset
    strSql = "select * from pc"
    rstSql.Open strSql, cnn, adOpenKeyset, adLockPessimistic
    Set DgdExplorer.DataSource = rstSql
    DgdExplorer.Refresh
    Set rstSql = Nothing
End Sub

建议把问题说清楚..
不要发段代码出来就不管了.过段时间回来看结果..
这样.你一辈子也学不了东西.

不好意思，版主。
我想让datagrid显示查询的内容。结果点击那个按钮，datagrid中没在内容显示，所以请版主指点。
由于工作的关系，不能时刻上网。见谅！

Private Sub CmdExecute_Click()
    Dim strSql As String
    Dim rstSql As New ADODB.Recordset
    rstSql.CursorLocation=adUseClient
    strSql = "select * from pc"
    rstSql.Open strSql, cnn, adOpenKeyset, adLockPessimistic
    Set DgdExplorer.DataSource = rstSql
    DgdExplorer.Refresh
End Sub

再次感谢版主的无私奉献。

如何把查询跟datagrid联系起来？能不能讲个实例。