Dim F As Integer
With cdlSave
    .CancelError = True
    .Flags = cdlOFNOverwritePrompt
    .Filter = "Access-Datenbanken (*.mdb)|*.mdb"
    .ShowSave
    If .FileName <> "" Then
      txtPath.Text = .FileName
      strConnect = cdlSave.FileName
      F = FreeFile
      Open cdlSave.FileName For Output As #F
      Close #F
      End If
End With