用vb制作db数据库文件

如果用vb来建立数据库的话，用adox对象就可以了，主要用到下面几个对象：
Dim cat As New ADOX.Catalog '对应数据库数据库文件
Dim tb() As New ADOX.Table '数据库里的表
Dim cl As New ADOX.Column '数据库里的字段

不过这种方法比较麻烦，简单的办法是用文本文件来存储(如果你不想让别人知道你用文本文件存储的数据，你可以文本文件的后缀名你可以改成dat,tpl,log....)。给你附带一个比较完整的文本文件读写的代码：
'以下是读记事本代码，读取后的数据存储在数组hs()中：
Dim i As Long, hs() As String
i = 0
ReDim hs(0)
Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve hs(i)
Line Input #1, hs(i)
i = i + 1
Loop
Close #1
'以下是写记事本代码：
dim filename as string
filename = "这是第一行" & chr(13) & chr(10) & "这是第二行" & chr(13) & chr(10) & "这是第三行" & chr(13) & chr(10)
Open App.Path & "\2.txt" For Output As #1
Seek #1, 1
Print #1, filename
Close #1