- Код: Выделить всё
Dim a As String
Dim d As Date
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\DATA\data.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
a = fil.Combo1.Text
d = Text1.Text
MsgBox d
Adodc1.RecordSource = "select * from [a] where date='&d&'"
Adodc1.Refresh
End Sub
Комбо1 это название табл а текст1 это дата **.**.**** не катит ВБ ругается.....
