Private Sub Command1_Click()

Adodc1.RecordSource = "select * from xsd where 日期 between # " & DT1.Value & " # and # " & DT2.Value & " #"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_zbjxc.mdb;Persist Security Info=False"

Adodc1.CommandType = adCmdText

End Sub

 

Private Sub Command1_Click()

Adodc1.RecordSource = "select * from xsd where 日期 between # " & DT1.Value & " # and # " & DT2.Value & " #"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_zbjxc.mdb;Persist Security Info=False"

Adodc1.CommandType = adCmdText

End Sub