'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
On Error GoTo err
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径\q.mdb;Persist Security Info=False"
cn.CursorLocation=adUseClient'设置客户端游标
cn.Open
cn.Execute("insert into 表 value('具体地点','具体时段','具体名称','具体级别','具体序号')")
cn.Close
Set cn=Nothing
Exit Sub
err:
MsgBox err.Description
End Sub