FileDialog

[smily68]

Hallo Zusammen

Bei meinem Code, in welchem ich das Objekt FileDialog verwende bekomme ich eine Fehlermeldung die sagt: "Laufzeitfehler 13 Typen unverträglich"

Hier der Code:

Dim dlg As FileDialog
    Dim strFileVorgabeName As String
    Dim varItem As Variant
   
    Set dlg = Application.FileDialog(msoFileDialogOpen)
    dlg.AllowMultiSelect = True
   
    If dlg.Show Then
        For Each varItem In dlg.SelectedItems
            db.Execute "Insert Into tblAnhangHotel (anhangHotel_Text) Values ('" & dlg.SelectedItems(varItem) & "')"
        Next varItem
    End If

Die Fehlermeldung weißt auf die rote gefärbte Zeile hin.
Wer kann mir weiterhelfen?

Gruss Daniel

[DF6GL]

Hallo,

db.Execute "Insert Into tblAnhangHotel (anhangHotel_Text) Values ('" & varItem & "')",dbFailOnError