Cek Data pada Database

Private Sub Command1_Click()

'====cek inputan data dengan DE
'If DataEnvironment1.rsCommand1.State = 0 Then DataEnvironment1.rsCommand1.Open
'DataEnvironment1.rsCommand1.Find ("indonesia='" & StrConv(Text1.Text, 2) & "'")
'If Not DataEnvironment1.rsCommand1.EOF Then
'MsgBox "Data Sudah Diinptkan", vbInformation, "Konfirmasi"
'Exit Sub
'End If
'===========

'=cek inputan data dengan DAO
If Daad.Recordset.RecordCount > 0 Then
Daad.Recordset.MoveFirst
While Not Daad.Recordset.EOF
If StrConv(Text1.Text, 2) = StrConv(Daad.Recordset.Fields("indonesia"), 2) Then
MsgBox "Data Sudah Diinptkan", vbInformation, "Konfirmasi"
Exit Sub
End If
Daad.Recordset.MoveNext
Wend
End If