谁能教教我ACCESS数据库？我用VB设计了一款小软件，可数据库不会编写。

直接代码：

Private Function AddRecords_N_Zong_ProductNum() '+===================================N_Zong_ProductNum

Dim QueryStr As String
Dim Rs As ADODB.Recordset
Dim BelongToDay As Date
Dim Group As Integer

Set Rs = New ADODB.Recordset
Set Rs.ActiveConnection = Conn
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockOptimistic

QueryStr = "SELECT * FROM N_Zong "
Rs.Open QueryStr

With Rs
.AddNew
.Fields("Product_Number") = lbl_Zong_ProductNum.Caption
.Fields("Date_Time") = Date & Time
.Update
End With
lbl_Zong_ProductNum.Caption = ""

End Function
上面是往数据库添加记录的功能，可以在timer或者command里面调用。

'打开数据库连接
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Mahr_KMS_N.mdb;Persist Security Info=False"
Conn.CursorLocation = adUseClient
Conn.Open
上面是打开数据库连接，放在form_load里面。

你是用Access做数据库，来编写程序的吗？

选打开ACCESS数据库，“文件”——“新建”---右边——“空数据库”——数据库保存的位置---双击“使用设计器创建表”或“使用向导创建表”或“通过输入数据创建表” 自己写字段、选择数据类型