程序代码：

Private Sub Command1_Click()
    Dim path As String
    Dim db As Database
    Dim sql As String
    With CommonDialog1
        .Filter = "Access文件(*.mdb)|*.mdb|所有文件(*.*)|*.*|"
        .DialogTitle = "另存为"
        .CancelError = True
        .DefaultExt = "mdb"
        .ShowSave
        path = .FileName
    End With
    
    If Dir(path) = "" Then
        Set db = Workspaces(0).CreateDatabase(path, dbLangGeneral)
        sql = "create table" & " test " & "(" & " 单号 text,备注 text);"
        db.Execute sql
    End If
End Sub