Vericar Si Existe Usuario

Tengo un problema en una aplicación que estoy haciendo para guardar datos en sql server 2000 usando visual 6.0 no se como verificar si el usuario existe al momento de agregarlo te envío el código del botón guardar
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
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 Sub