in meinem Excelsheet habe ich eine Userform "frm_Auswahl" in der
ein Listenfeld "lstvalues" die Daten einer Access-Tabelle "tab_Informationen" einlesen soll.
In das Listenfeld sollen die Daten der Access-Spalten "Kennz" und "Maßnahme" eingelesen werden.
Mit dem untenstehenden Code bekomme ich einen Laufzeitfehler: Installierbares ISAM nicht gefunden.
Hat jemand eine Idee, wo der Fehler sein könnte?
Gruß Franz
Private Sub UserForm_Initialize() 'Laden Userform mit Listenfeld'
Dim AccApp As Object
Dim conn As New ADODB.Connection
Dim DBS As ADODB.Recordset
Dim TFrm As Variant
Dim s As String
Set AccApp = CreateObject("Access.Application")
Set DBS = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Soure=U:\Maßnahmen.mdb;"
s = lstValues.Value 'Name Listenfeld'
TFrm = frm_Auswahl 'Name Userform
DBS.Open "tab_Information", conn, adOpenKeyset, adLockOptimistic
On Error GoTo Fehler
DBS.Find s
s = DBS!Kennz
With TFrm
.lstValues.Value = DBS!Kennz
.lstValues.Value = DBS!Maßnahme
End With
DBS.Close
AccApp.Quit
Set DBS = Nothing
Set conn = Nothing
Fehler:
MsgBox "Keine Verbindung zur Datenbank"
DBS.Close
End Sub