求助 VB ACCESS 链接
Private Sub Command2_Click()
Dim USENAME As String
Dim BRIDATE As Data
Dim SEX As String
Dim NUM As Integer
'//////////////////////////////
USENAME = Text1.Text
BRIDATE = DTPicker1.Value
NUM = BH
If Option1.Value = True Then
SEX = "男"
Else
SEX = "女"
End If
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\USERINFO.mdb"
rs.CursorLocation = adUseClient
sql = "select * from userinfo"
cn.Execute sql
sql = "Insert Into USERINFO(姓名,性别,出生日期) Values (' + USENAME + ','+ SEX + ',#" & BRIDATE & "#)"
rs.Open Trim$(sql), cn, adOpenKeyset, adLockPessimistic
cn.Execute sql
rs.MoveNext
rs.Update
rs.Close
cn.Close
End Sub
、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
说是对象变量或with块变量未设置 红色字体处 提示错误