怎么没人回我的贴呀,会的,帮我写几句主要的代码就可以了,access中的代码
With DataEnv.rsconlist
.AddNew
.Fields("序号") = Text1.Text
.Fields("交付单位") = Text2.Text
.Update
End With
这样就可以写到数据库了,但是用SQL这样写就不可以,提示不可以被更新,或程序受限制.

我最近正在学，希望对你有用吧
先建个公共模块
Public objCon As New ADODB.Connection 'ADO连接对象，整个系统用一个
Public objRs As New ADODB.Recordset ’ADO记录集

Function ConnDB() As Boolean
On Error GoTo Err1

ConnDB = True

Set objCon = New ADODB.Connection

objCon.ConnectionString = "provider=sqloledb;data source=.;Initial Catalog=student;user id=sa;pwd=123"

objCon.Open

Exit Function
Err1:
ConnDB = False

End Function

再在你要用到的窗体
Dim strexec As String
Set objCon = CreateObject("ADODB.Connection")
objCon.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=student;Data Source=PC40319"
Set objRs = CreateObject("ADODB.RecordSet")
strexec = "Select * From YHGLB Where yhmc='" & Trim(Combo2.Text) & "'"　　'放入你所要查询的语句
Set objRs = objCon.Execute(strexec)

这样应该就可以被执行了
用的时候就
text1.text=objRs("序号")