Public Sub Lockuser(ByVal path As String, ByVal userId As String, ByVal access As Boolean)
 
 
        Dim sqlConn As OleDbConnection
 
        Dim oCommand As OleDbCommand
 
        Dim stmt As String
 
        Dim param As OleDbParameter
 
        ' This sets up the connection to the database including the path passed in
 
        sqlConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & path & "")
 
        sqlConn.Open()
 
        oCommand = New OleDbCommand()
 
        oCommand.Connection = sqlConn
 
 
        stmt = "UPDATE tblUsers SET Access = @access" & " WHERE(tblUsers.UserID = @userId)"
 
        'declare parameter objects for the command object
 
        param = New OleDbParameter()
 
        param.ParameterName = "@userId"
 
        param.Value = userId
 
        oCommand.Parameters.Add(param)
 
        param = New OleDbParameter()
 
        param.ParameterName = "@access"
 
        param.Value = False
 
        oCommand.Parameters.Add(param)
 
        oCommand.CommandText = stmt
 
        oCommand.CommandType = CommandType.Text
 
        oCommand.ExecuteNonQuery()
 
        sqlConn.Close()
 
    End Sub