Is there any method to protect Database

[qiqinuinaifen128]

Is there any method to protect Database. I mean only people who have the password can edit the database or ....

Below is my code

Private Sub Command11_Click()
Data1.Recordset.AddNew
Data1.Recordset.Fields("Code").Value = InputBox("Code")
Data1.Recordset.Update
End Sub

Private Sub Command12_Click()
Data1.Recordset.Delete
End Sub

Private Sub Command13_Click()
Data1.Recordset.MoveLast
Data1.Recordset.Delete
End Sub

Data1.DatabaseName = App.Path & "\menu1.mdb"
Data1.RecordSource = "Table1"
Data1.Refresh

Text9.DataField = "Code"

End Sub

A very Thank for helping and reading my thread