Vb Code error

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Visible = False
End Sub

Private Sub Command1_Click()
If (Text4.Text = Text5.Text) Then
Adodc1.Recordset.AddNew
thankyou.Show
details.Hide

Else
MsgBox "The entered passwords do not match,please re-enter"

End If
End Sub

This gives me an error in the line with adodc

Error:http://support.microsoft.com/kb/316478