主题：如何初始化外部access数据库

If MessageBox.Show("本系统是单机版,且没有新建年度数据库时,让系统自己新建,选择 是" & vblf & " 系统是其他情况时,比如已经新建完数据库,或者是网络数据库 选择 否","新建数据库",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then

    Dim Val As String

    If InputValue(Val, "自定义名称","请输入新的年度数据库名称:" & vblf & "建议数据库的名称和接下来的数据源配置名称为年度 ") Then

        If FileSys.FileExists(ProjectPath & "images\" & val & ".mdb") Then

            If Messagebox.Show("文件已经存在!  如果继续创建将丢失数据, 想覆盖么?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Warning) =DialogResult.OK Then

                FileSys.CopyFile(ProjectPath & "images\njcwt.mdb", ProjectPath & "images\" & val & ".mdb",True)

                MessageBox.Show("覆盖式创建年度数据库成功")

            Else

                Return

            End If

        Else

            FileSys.CopyFile(ProjectPath & "images\njcwt.mdb", ProjectPath & "images\" & val & ".mdb")

            Connections.Add(val,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath & "images\" & val & ".mdb;Persist Security Info=False")

            Dim cn As Connection = Connections(val)

            Dim Builder As New ADOXBuilder(val) '数据源名称

            Builder.Open()

            For Each tbl As  ADOXTable In builder.Tables

                'tbl 清空代码如何写

            Next

            Builder.Close()

            MessageBox.Show("创建年度数据库成功")

        End If

    End If

Else

    Syscmd.Project.ModifyOuterDataSource()

End If