Question

vb如何点击按钮后，datagrid表才会显示数据？而不是直接加载

Answer 1

Private Sub Command1_Click()
    Dim db As New ADODB.Connection '定义数据库的连接
    Dim strCnn As String
    Dim rs As New ADODB.Recordset
    strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb" ';Persist Security Info=False"
    db.Open strCnn
    rs.CursorLocation = 3
    rs.Open "select * from jishijilu", strCnn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs
End Sub

Answer 2

你所谓直接显示，终归也要有代码的吧？

你把那个代码，放到按钮的单击事件里好了！