三个窗体，一个ACCESS数据库
在第一个窗体输入性别和年龄，然后进入第二个窗体。
现在运行不下去了，请大家看看。


Dim con As New adodb.Connection
Dim rs As New adodb.Recordset
Dim str
Private Sub cmdjrcy_Click()
If Combxb = "" Or txtnl.Text = "" Then
tt = MsgBox("请输入基本信息", 65, "消息框")
Else:

Adodc1.Recordset.AddNew
Adodc1.Recordset.Update
dycy.Show
Unload Me
End If

End Sub

Dim con As New adodb.Connection
Dim rs As New adodb.Recordset
Dim str ,tt
Private Sub cmdjrcy_Click()
If Combxb.text = "" Or txtnl.Text = "" Then
tt = MsgBox("请输入基本信息", 65, "消息框")
Else:

Adodc1.Recordset.AddNew
Adodc1.Recordset.Update
dycy.Show
Unload Me
End If

End Sub

还是不行，您再看看！
我基础实在是差的。