form register

Private Sub b_Click()
If Text1.Text = "" Or Text2.Text = "" Then
    MsgBox "Username atau Password belum diisi!", vbInformation, "Register"
Else
    If Adodc1.Recordset.EOF Then
        pesan = MsgBox("Akun Tersedia, mau di lanjutkan?", vbYesNo, "Register")
        If pesan = vbYes Then
            frmRegister1.Text1.Text = Text1.Text
            frmRegister1.Text2.Text = Text2.Text
            frmRegister1.Show
            Unload Me
        End If
    Else
        MsgBox "Akun tidak tersedia, silahklan gunakan username lain!", vbYesNo, "Register"
        Text1.Text = ""
        Text2.Text = ""
    End If
End If
End Sub

Private Sub bb_Click()
    Unload Me
    frmUtama.Show
    frmUtama.Enabled = True
End Sub


Private Sub Text1_Change()
Dim r As String
r = "select * from login where username like'" & Text1.Text & "'"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = r
Adodc1.Refresh
End Sub