我对修改按钮的功能实现遇到了问题,贴图如下:
其中text控件命名为:moditext
程序如下:
但是不能实现修改的功能,请指点:

If oppjdw.Value = True And Trim(moditext.Text) <> "" Then
Dim re_reader1 As New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim sql As String
sql = "select * from lydw where 领用单位='" & Trim(moditext.Text) & "'"
conn.ConnectionString = "dsn=pjb;uid=;pwd=;"
conn.Open
re_reader1.CursorLocation = adUseClient
re_reader1.Open sql, conn, 2, 2
If re_reader1.EOF Then
re_reader1.delect
re_reader1.AddNew
re_reader1.Fields(0) = Trim(moditext.Text)
re_reader1.Update
MsgBox "修改成功", vbOKOnly
dg1.Clear
dg1.Refresh
refreshdw
re_reader1.Close
conn.Close
End If

If oppjdw.Value = True And Trim(moditext.Text) <> "" Then
Dim re_reader1 As New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim sql As String
sql = "select * from lydw where 领用单位='" & Trim(moditext.Text) & "'"
conn.ConnectionString = "dsn=pjb;uid=;pwd=;"
conn.Open
re_reader1.CursorLocation = adUseClient
re_reader1.Open sql, conn, 1, 3
If re_reader1.EOF Then
re_reader1.delect
re_reader1.AddNew
re_reader1.Fields(0) = Trim(moditext.Text)
re_reader1.Update
MsgBox "修改成功", vbOKOnly
dg1.Clear
dg1.Refresh
refreshdw
re_reader1.Close
conn.Close
End If

谢谢指点,我用另一种方法实现了,非常感谢兄台指点

另外请问想在insert语句中添加变量如何实现,
我想嵌套一个循环
变量i取beginbh.text的值 然后用i值来做循环的开头,还有就是VAL函数取出来好像数值不对?
请高手指点,再次感谢
Set conn = New ADODB.Connection
Dim sql As String
conn.ConnectionString = "dsn=pjb;uid=;pwd=;"
conn.Open
Dim i As String
dim j as string
Dim k As Single
Dim l As Single
i = "'" & Trim(beginbh.Text) & "'"
j = "'" & Trim(endbh.Text) & "'"
k = Val(i)
l= Val(j)
conn.BeginTrans
sql = "insert into pjzb([票据编号],[票据类型],[入库人],[未使用])values( " & k & " ,'" & Combo1.Text_ & " ','" & Text1.Text & "','1')"
For k = Val(i) To l
conn.Execute sql
conn.CommitTrans
k=k + 1
Next i

即如何实现成批在数据库中添加,谢谢