Private Sub Command4_Click()
Dim x1 As String
x1 = InputBox("input1", "text1")
 
 cn.Execute ("update zgda set bh=x1 where xm='" & Text1.Text & "'")



End Sub

Private Sub Form_Load()
Set cn = New ADODB.Connection
rs.CursorType = adOpenStatic
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "data source=e:\vbp\rsgz.mdb"
cn.Open
Set rs.ActiveConnection = cn
rs.Open ("select*from zgda")
rs.MoveFirst
Call refreshdisp

End Sub
那句不知道是哪里出错了不是数据类型不匹配就是至少一个参数没被赋值   怎么改都不行  晕啊！！！！！！！！！！
高手  指点一下啊！！！！！！！！！！