Visual Basic - Eliminar y Contraseñas

hola tengo 2 preguntas espero me contesten aunque sea una por favor.

1.- Deseo eliminar un registro existente en una base de datos, pero no se que me hace falta ya que me manda un mensaje que no se pueden borrar los datos de la tabla, espero me ayuden mil gracias de antemano.

Private Sub Command4_Click()
Dim Msg As VbMsgBoxResult
Msg = MsgBox("¿Esta seguro de querer limpiar este texto", vbQuestion + vbYesNo, "Salir")
If Msg = vbYes Then
inserta.CommandText = "insert into usuarios(Usuario,Contraseña) values ('" & txtNombre.Text & "','" & txtContraseña.Text & "')"
inserta.Execute
busca.Close
busca.Open "Delete Usuario,Contraseña from usuarios", Conex, adOpenKeyset, adLockReadOnly
busca.MoveFirst
txtNombre.Text = busca!Usuario: txtContraseña.Text = busca!Contraseña
Else
Cancel = True
End If
End Sub

2.- Tambien deseo saber como puedo tomar los datos de arriva (Usuario y Contraseña) para poder jalarlos aun formulario de tal forma que al teclear el usuario y su contraseña me deje accesar a el sistema.

Pero porque insertas y al mismo tiempo borras ?

Porque no haces mejor un UPDATE ? Y la clausula WHERE ? Sin WHERE va a hacer UPDATE o DELETE sobre todos los registros

Para lo de buscar pues haces 2 textbox y pones : select * from tabla where usuario=text1 and password=text2 ...

Si hay resultado entonces si se encontro..

Asi lo utilizo yo

Dim Dbs As Database, Resultado As Recordset
Set Dbs = OpenDatabase(Principal.Ruta & "Accesos.mdb ")

Set Resultado = Dbs.OpenRecordset("SELECT * FROM Usuarios WHERE
Iniciales='" & Text1 & "' AND Clave='" & MD5(Text2) & "';")

If Resultado.RecordCount > 0 Then
' Aqui entra si hubo resultado
End If

Dbs.Close