高手进来救救我吧

a8052240

On Error GoTo tuichu

Dim rs As New ADODB.Recordset
Dim str As String
Dim cunzai As Boolean

   
    If IsNull(Me.书籍编号) Then
        MsgBox ("请输入书籍编号！")
        ElseIf IsNull(Me.书名) Then
        MsgBox ("请输入书名！")
        ElseIf IsNull(Me.作者) Then
        MsgBox ("请输入作者！")
        Else
    str = "select * from 书籍"
    Set rs = GetRS(str)
   
     End If
     
     
     '检查编号是否存在
     cunzai = False
     Do While Not (rs.EOF)
     
     If Me.书籍编号 = rs!书籍编号 Then
     cunzai = True
     End If
     rs.MoveNext
     Loop
    rs.Close
     
    '判断存在变量是否为真，并更新
   If cunzai = True Then
   str = " update 书籍 set 书籍.作者=" & Me.作者 & ",书籍.书名=" & Me.书名 & " where 书籍.书籍编号=""" & Me.书籍编号 & """"
   ExecuteSQL (str)
   MsgBox ("更新成功！")
   Else
    MsgBox ("不存在要更新的书籍！")
   GoTo tuichu
   
   End If
tuichu:
    Exit Sub
这段代码只能更新数字，不能更新文字。那位高手教教我怎么改我~~~~~~~~~~~

iamee

格式
书籍.作者='" & Me.作者 & "',书籍.书名='" & Me.书名 & "'

a8052240

解决了，谢谢你大哥，谢谢你