Utente che locca il DB

Dim str_conn As String
str_conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:DB.mdb;"

Dim connb As OleDbConnection = New OleDbConnection(str_conn)

Dim objTransaction As OleDbTransaction = conn.BeginTransaction    
    
Try
   cmd = New OleDbCommand("DELETE * FROM tabella", conn, objTransaction)
   cmd.ExecuteNonQuery()

   objTransaction.Commit()
Catch ex As Exception
   MsgBox(ex.Message)
   objTransaction.Rollback()
End Try