inicio de sesión para varios usuarios

[aglayo2009]

hola:

este es el codigo que hize para hacer la seccion de usuarios pero no se que hacer en esta parte, aqui le envio los coidgo

Public objconexion As New OleDb.OleDbConnection
Public objcomando As New OleDb.OleDbCommand
Public Function abrir_base() As OleDb.OleDbConnection
Try
Dim ruta As String
Dim cnn As New OleDb.OleDbConnection
ruta = Application.StartupPath & "\" & "video.accdb" ' empieza a buscar el archivo desde la carpeta debug"
If cnn.State = 1 Then cnn.Close()
cnn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source =" & ruta & "" ' provee la informacion suficiente para abrir la base de datos
cnn.Open()
Return cnn
Catch ex As Exception
MessageBox.Show(Err.Description)
Return Nothing
End Try
End Function

Private Sub frmingreso_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objconexion = abrir_base()
End Sub

Private Sub txtusuario_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtusuario.KeyPress
Try
If Not Char.IsLetterOrDigit(e.KeyChar) Then
If e.KeyChar <> Convert.ToChar(Keys.Back) Then
If e.KeyChar <> Convert.ToChar(Keys.Space) Then
If e.KeyChar <> Convert.ToChar(Keys.Enter) Then
e.Handled = True
Else
If Trim(txtusuario.Text) = "" Then
MessageBox.Show("Digite el usuario", "Usuarios")
Else
txtcontrasena.Enabled = True
txtcontrasena.Focus()
End If
End If
End If
End If
End If
Catch ex As Exception
MessageBox.Show(Err.Description)
End Try
End Sub

Private Sub txtcontrasena_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcontrasena.KeyPress
Try
If Not Char.IsLetterOrDigit(e.KeyChar) Then
If e.KeyChar <> Convert.ToChar(Keys.Back) Then
If e.KeyChar <> Convert.ToChar(Keys.Space) Then
If e.KeyChar <> Convert.ToChar(Keys.Enter) Then
e.Handled = True
Else
If Trim(txtcontrasena.Text) = "" Then
MessageBox.Show("Digite la contraseña", "Contraseña")
Else
btnaceptar.Enabled = True
btnaceptar.Focus()
End If
End If
End If
End If
End If
Catch ex As Exception
MessageBox.Show(Err.Description)
End Try
End Sub

Function Consultacliente(ByVal usuario As String, ByVal contrasena As String) As DataTable
Try
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter
objcomando.Connection = objconexion
objcomando.CommandText = "select * from tblingreso where usuario ='" & usuario & "' and contrasena = '" & contrasena & "'"
da.SelectCommand = objcomando
da.Fill(dt)
Return dt
Catch ex As Exception
MessageBox.Show(Err.Description)
Return Nothing
End Try
End Function

**Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click
Try
Dim ingreso As New DataTable
ingreso = Consultacliente(txtusuario.Text, txtcontrasena.Text)
If ingreso.Rows.Count = 0 Then
MessageBox.Show("El cliente no esta registrado", "Aviso de clientes")
txtusuario.Focus()
txtusuario.SelectAll()
Else
frmMenu_principal.Show()
End If

Catch ex As Exception
MessageBox.Show(Err.Description)
End Try
End Sub

** en este codigo no se mas que hacer mas y en los otros no se si estan bien hechos. en la tabla de access tengo un campo llamado nivel y esta en 1 con la contrasena especial de administrador.

alguien podria ayudarme a que funcione bien o que me corrrijan el codigo'

muchas gracias