请帮我检查一下代码,谢谢！

[wangyanqiu0918]

总说with变量未设置，不知道那的错。
Public Function executesql(ByVal sql As String) As ADODB.Recordset
Dim cn As ADODB.Connection, rs As New ADODB.Recordset

End Function






Private Sub Command2_Click()

End Sub

Private Sub bc_Click()
Dim sql As String
Const connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\图书管理系统\libary.mdb"
Set cn = New ADODB.Connection
cn.Open connstring
sql = "select * from zhikuandan"
Set rs = executesql(sql)
rs.AddNew
rs.Fields(0) = Trim("combobm.text")
rs.Fields(1) = Trim("txtyy.text")
rs.Fields(2) = Trim("txtje.text")
rs.Fields(3) = Trim("txtjed.text")
rs.Fields(4) = Trim("txtcz.text")
rs.Fields(5) = Trim("txtzkr.text")
rs.Fields(6) = Trim("txtrq.text")
rs.Update
End Sub

Private Sub qx_Click()
Unload Me
End Sub

[yijiansong]

Dim cn As ADODB.Connection, rs As New ADODB.Recordset
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Function executesql(ByVal sql As String) As ADODB.Recordset


End Function






Private Sub Command2_Click()

End Sub

Private Sub bc_Click()
Dim sql As String
Const connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\图书管理系统\libary.mdb"
Set cn = New ADODB.Connection
cn.Open connstring
sql = "select * from zhikuandan"
Set rs = executesql(sql)
rs.AddNew
rs.Fields(0) = Trim("combobm.text")
rs.Fields(1) = Trim("txtyy.text")
rs.Fields(2) = Trim("txtje.text")
rs.Fields(3) = Trim("txtjed.text")
rs.Fields(4) = Trim("txtcz.text")
rs.Fields(5) = Trim("txtzkr.text")
rs.Fields(6) = Trim("txtrq.text")
rs.Update
End Sub

Private Sub qx_Click()
Unload Me
End Sub

[wangyanqiu0918]

还是不对

[wbwx]

rs.open sql,cn

[chao778899]

Private Sub bc_Click()
Dim sql As String
Const connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\图书管理系统\libary.mdb"
Set cn = New ADODB.Connection
cn.Open connstring
sql = "select * from zhikuandan"
rs.open sql
rs.AddNew
rs.Fields(0) = Trim("combobm.text")
rs.Fields(1) = Trim("txtyy.text")
rs.Fields(2) = Trim("txtje.text")
rs.Fields(3) = Trim("txtjed.text")
rs.Fields(4) = Trim("txtcz.text")
rs.Fields(5) = Trim("txtzkr.text")
rs.Fields(6) = Trim("txtrq.text")
rs.Update
End Sub

Private Sub qx_Click()
Unload Me
End Sub

[null1027]

瞧，MSDN上的范例，你改用这样的语法看看
rstEmployees.AddNew
rstEmployees!emp_id = strID
rstEmployees!fname = strFirstName
rstEmployees!lname = strLastName
rstEmployees.Update
booRecordAdded = True

或者你试着在你的那些rs.fields(1)的后面加上 .value 也就是说

rs.AddNew
rs.Fields(0).value = Trim("combobm.text")
rs.Fields(1).value = Trim("txtyy.text")
rs.Fields(2).value = Trim("txtje.text")
rs.Fields(3).value = Trim("txtjed.text")
rs.Fields(4).value = Trim("txtcz.text")
rs.Fields(5).value = Trim("txtzkr.text")
rs.Fields(6).value = Trim("txtrq.text")
rs.Update

[wangyanqiu0918]

都不行。我用的是access数据库，跟它有关系吗？还是由于我没有安装msdn的缘故？