VB中怎么动态创建access数据库以及数据库表

比如：text1输入123， text2输入234,text3输入adc，点击command1时，自动生成123.mdb   ，数据库里有个表格显示234，abc,信息，并且数据库储存到指定 的文件夹中， --------------------编程问答-------------------- Private Sub Command1_Click()
    CreateDatabase "c:\123.mdb"
End Sub

Public Sub CreateDatabase(ByVal sDatabaseFile As String)
    Dim cat
    Set cat = CreateObject("ADOX.Catalog")
    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & sDatabaseFile
    Set cat = Nothing
End Sub

然后再打开123.mdb，然后create table 建表。然后insert数据。。。

补充：VB ,  非技术类