我用
Dim cat As Catalog = New Catalog()
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & NewDBPathName & ";Jet OLEDB:Engine Type=5")
创建了一个空的数据库文件

再用
Dim dt As New DataTable

dt.Columns.Add(New DataColumn("ID"))

dt.Columns.Add(New DataColumn("NAME"))
创建一个表
怎么在代码里把这个表添加到数据库里去

创建数据表 不是用vb代码来实现的。楼主你思路错了