Свойство DataSourceBehavior компонента в vbDataSource
Вот код метода OpenRecordset,
но думаю что дело вовсе не в нём
- Код: Выделить всё
Public Sub OpenRecordset()
On Error GoTo err_occur
If cnn Is Nothing Then
Set cnn = New ADODB.Connection
With cnn
.CursorLocation = adUseClient
.CommandTimeout = 300
.Provider = Server
.Properties("Data Source") = Database
'.Properties("User id") = User
'.Properties("Password") = Password
.Open
End With
End If
If rst Is Nothing Then
Set rst = New ADODB.Recordset
rst.Open Table, cnn, adOpenKeyset, adLockOptimistic, _
adCmdTable
If Not (rst.BOF And rst.EOF) Then rst.MoveFirst
End If
Exit Sub
err_occur:
MsgBox "Îøèáêà ïðè îòêðûòèè áàçû äàííûõ."
End Sub