Using savedb As New SaveFileDialog()
            With savedb
                .Filter = "Access Datenbank (*.mdb)|*.mdb"
                .CreatePrompt = True
                .OverwritePrompt = True
                .ValidateNames = True
            End With
 
            If savedb.ShowDialog() = DialogResult.OK Then
                    File.Delete(savedb.FileName())
                    ... weiterer code zum aufruf der DB Erstellungsroutine
            end if
end using