Try
Dim Ruta As String = Nothing
Ruta = "C:\Cooperativa\Cooperativa.mdb"
Using cnx As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Ruta)
cnx.Open()
Dim Pssw As String
Pssw = TextBox2.Text
sSql = "SELECT * FROM USUARIOS WHERE CLAVE = '" & TextBox1.Text & "'" & " AND PASSWORD = '" & EncryptStr(Pssw) & "'"
Dim cmd As New OleDbCommand(sSql, cnx)
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("CLAVE", TextBox1.Text)
Dim lectura As OleDbDataReader = cmd.ExecuteReader()
If lectura.Read = True Then
UserName = CStr(lectura(2))
UserLogin = CStr(lectura(3))
strClave = CStr(lectura(4))
End If
cnx.Close()
lectura.Close()
End Using
Catch ex As Exception
MessageBox.Show("Error : " + ex.Message + "", "¡Ocurrio el siguiente Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
rstUSERS = Nothing
End Try