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