Private Sub Command1_Click()
'////////////第一种方案开始/////////////////////
sybase_ad.Recordset.ActiveConnection.Execute = "update lib set 卡号=" & Val(Trim(T_ka.Text)) & "where 借书证号='" & Trim(T_js.Text) & "'"

'sybase_ad.Recordset.ActiveConnection.Execute = "update lib set 卡号=" & "123" & "where 借书证号='" & Trim(T_js.Text) & "'"
'////////////第一种方案结束/////////////////////

'////////////第二种方案开始/////////////////////
'Dim myConn As New ADODB.Connection
'Dim myCommand As New ADODB.Command
'Dim cAffected As Long

'myConn.Provider = "ASAProv"
' myConn.ConnectionString = _
' "Data Source=cyz_sybase"
' myConn.Open

' myCommand.CommandText = _
'"update lib set 卡号=" & Val(Trim(T_ka.Text)) & "where 借书证号='" & Trim(T_js.Text) & "'"

'Set myCommand.ActiveConnection = myConn
'myCommand.Execute cAffected

'myConn.Close
'////////////第二种方案结束/////////////////////

MsgBox "卡号更新成功!"
T_js.SetFocus '最后执行
T_js.Text = ""
ts.Caption = "提示:"
ts.Caption = ts.Caption & "请输入借书证号!"
End Sub


这个就是处理代码，本人用了两种方案，但结果都是一样.
注:Sybase用的是12.5版