Vericar Si Existe Usuario

Espero que te encuentres muy bien, sabes que tomé tu código y le agregué algunas cositas, cuentame si te sirve..
Private Sub Command1_Click()
rst.Open "SELECT * FROM Data_Usuarios", cnn, adOpenDynamic, adLockOptimistic
If Text1.Text = vbNullString Or _
Text2.Text = vbNullString Or _
Text3.Text = vbNullString Or _
Text4.Text = vbNullString Or _
Text5.Text = vbNullString Or _
Text6.Text = vbNullString Or _
Text7.Text = vbNullString Or _
Text8.Text = vbNullString Then
errormsg = MsgBox("Debe Llenar Todos Los Campos", vbCritical, "Error")
Exit Sub
End If
*****************************
Verifico si el usuario existe
asumo que una personaa puede tener sólo una contraseña de usuario
***************************
Rst.find "Num_carnet='" & Trim(text6.text) & "'"
If rst.eof=False then
msgbox "usuario ya existe, debo editar (update)"
else 'puedo guardar
rst.AddNew
rst("Usuario") = Text1.Text
rst("Contraseña") = Crypt(Text2.Text)
rst("Nombre") = Text3.Text
rst("Apellido") = Text4.Text
rst("Contra_Seguridad") = Crypt(Text5.Text)
rst("Num_Carnet") = Text6.Text
rst("Unidad") = Text7.Text
rst("Nom_Equipo") = Text8.Text
rst.Update
Text1.Text = vbNullString
Text1.Enabled = True
Text2.Text = vbNullString
Text2.Enabled = True
Text3.Text = vbNullString
Text3.Enabled = True
Text4.Text = vbNullString
Text4.Enabled = True
Text5.Text = vbNullString
Text5.Enabled = True
Text6.Text = vbNullString
Text6.Enabled = True
Text7.Text = vbNullString
Text7.Enabled = True
Text8.Text = vbNullString
Text8.Enabled = True
infomsg = MsgBox("Usuario Creado", vbExclamation, "Usuario Creado")
rst.Close
Form2. List1. Clear
Rst. Open "SELECT * FROM Data_Usuarios ORDER BY Usuario", cnn, adOpenDynamic, adLockOptimistic
Do Until rst.EOF = True
Form2.List1.AddItem rst.Fields(0)
rst.MoveNext
Loop
rst.Close
end if
revisalo ya??