Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
'==============================
'FORM2 代码
Option Explicit
Private Sub Command1_Click()
Form1.rs.AddNew
Form1.rs!UID = "DDDD"
Form1.rs!PWD = "AAAA"
Form1.rs!TRUENAME = "AAAA"
Form1.rs!CREATEDATE = "2004/06/26"
Form1.rs.Update
End Sub