Public ADOCnn As New ADODB.Connection
Public AdoTab As New ADODB.Recordset
Public Richtung As Variant
Sub Datenbankanbindung()
ADOCnn.provider = "Microsoft.Jet.OLEDB.4.0"
ADOCnn.Open DB_Name
AdoTab.Open "Tabelle", ADOCnn, adOpenDynamic, adLockOptimistic
Do While AdoTab.EOF = False
If Richtung = Null Then
Richtung = "k.A."
Else
Richtung = AdoTab!RichtungNR
End If
Loop
ADOCnn.Close
Set ADOCnn = Nothing
End Sub