Logarse en un programa con datos de una base de datos access

[galizia]

Hola,

Estoy creando un programa tipo cyber el cual el primer formulario tendra para que escriban usuario y contraseña, la base de datos la tendre puesta en un ordenador que hara de servidor.
en este mismo servidor todos podran tener acceso a la base de datos para consulta solo.

en el servidor me hace falta poder añadir usuarios segun la marcha, me baje un codigo para hacerlo por vb6 y office 95 pero con el 2003 tengo problemas , ademas de no poder añadir usuarios nuevos...

si os sirve de idea el proyecto inicial con ofice 95 es

Código [Seleccionar] Expandir


Private Sub Command1_Click()

 On Error Resume Next
 Direccion = "y:\cyber.mdb"
 Set BaseDatos = OpenDatabase(Direccion)
 Set RsUsuarios = BaseDatos.OpenRecordset("Select * From Usuarios")

  With RsUsuarios
   .FindFirst "Usuario ='" & Text1.Text & "'"
   If .NoMatch Then
    MsgBox ("Usuario no registrado"), vbInformation
    Text1.Text = ""
    Text2.Text = ""
    Text1.SetFocus
   Else
    If Text2.Text Like RsUsuarios(2) Then
     Usuario = Text1.Text
     autentifica.lblusuario.Caption = Text1.Text
     'FrmAgenda.CS.Caption = "Cerrar Sesión de " & UCase(Text1.Text)
     autentifica.Show
     
    Else
     MsgBox ("Password incorrecto"), vbInformation
     Text2.Text = ""
     Text2.SetFocus
    End If
   
   
   End If
  End With

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub




Private Sub Form_Load()

End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub
Private Sub text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

graciass

[raul338]

Estas usando el vb6 o el VBA? (El visual basic que se incluye con access)?

Si es visual basic 6, te diría que busques sobre ADO y rehagas todo

[galizia]

con visual basic 6 uf con ado.... eso de acer que busque en la base de datos la tabla de usuarios y que verifique la contraseña en la tabla .... nose... i need help necesito ayudaa.