Global DB As ADODB.Connection 'datenbank verbindung durch ado
Global RS As ADODB.Recordset 'datenbanktabelle verbindung
Global SQL As Variant
 
Global PFAD As Variant
Global Provie As Variant
Global Datenbank As Variant
 
 
Function DbOpen()
 
PFAD = "c:\Test\test.mdb"
Provie = "PROVIDER=Microsoft.Jet.OLEDB.4.0"
Datenbank = Provie & ";Data Source=" & PFAD & ";Persist Security Info=False"
End Function
 
 
:
'Diese Funktion für das Öffenen vom Formular oder in eine Modul einbinden:
 
 
DbOpen
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
SQL = "Select * from TabAdresse"
 
DB.Open Datenbank
RS.CursorLocation = adUseClient
RS.Open SQL, DB, adOpenStatic, adLockOptimistic
 
Set txtAnrede.DataSource = RS
 
 
txtAnrede.DataField = "Anrede"
 
 
txtAnrede.text = "Hallo meine Damen und Herren"

RS.MoveNext

Zitat:

[u]Laufzeitfehler '-2147217842(80040e4e)' Operation was canceled