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中没在内容显示，所以请版主指点。
由于工作的关系，不能时刻上网。见谅！

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