vbÀïµÄÎÊÌâ

Ìí¼ÓµÄʱºòÀÏÊdzöÏÖ¡°ÊéºÅ²»ÄÜΪ¿Õ¡±µÄÌáʾ£¬²»¹ÜÊéºÅ¿Õ²»¿Õ£»´úÂëÈçÏ£º
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command
Public connstring As String

Private Sub cmdadd_Click()
Dim rsvalid As ADODB.Recordset
'Dim strsql$, strreaderID$, strName$, strsex$, strad$, strtel$
Dim bookmk
strÊéºÅ = Replace(Trim(txtÊéºÅ.Text), "'", "")
strÊéÃû = Replace(Trim(txtÊéÃû.Text), "'", "")
str×÷Õß = Replace(Trim(Txt×÷Õß.Text), "'", "")
str³ö°æÉç = Replace(Trim(txt³ö°æÉç.Text), "'", "")
strÀà±ð = Replace(Trim(TxtÀà±ð.Text), "'", "")
str½è³ö·ñ = Replace(Trim(txt½è³ö·ñ.Text), "'", "")
strµ¥¼Û = Replace(Trim(txtµ¥¼Û.Text), "'", "")
If strbookID = "" Then
  MsgBox "ÊéºÅ²»ÄÜΪ¿Õ", , "ÊäÈë´íÎó"
  txtÊéºÅ.SetFocus
  Exit Sub
ElseIf strÊéÃû = "" Then
  MsgBox "ÊéÃû²»ÄÜΪ¿Õ", , "ÊäÈë´íÎó"
  txtÊéÃû.SetFocus
  Exit Sub
End If
Set rsvalid = New ADODB.Recordset
strsql = "select * from ͼÊé where bookid='" & strbookID & "';"
rsvalid.Open strsql, Conn, 1, 1
If Not rsvalid.EOF Th