Такая проблема, вот код части программы
| Код |
Private Sub pech_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "C:\ÃÑÊ ÁÀÇÀ ÄÀÍÛÕ\databaze.mdb"
.Open
End With
Dim SQLstr As String
Dim b As String
b = Year(Date) - 1
With rs
.ActiveConnection = cn
.LockType = adLockReadOnly
.CursorType = adOpenDynamic
.Source = "select * From databaze where (Âçíîñ < " + b + " )"
.Open
End With
Set dt.DataSource = rs
dt.Show
Set rs = Nothing
Set cn = Nothing
End Sub
|
Собственно проблема в том,: при нажатии на кнопку pech выдает : "Аргументы имеют неверный тип, выходят за пределы допустимого диапозона или вступают в конфлинкт друг с другом. "
Понятие не имею чего ей надо от меня, вообщем кому не сложно объясните, а лучше поправьте.
Заранее спасибо. |