Visual Basic 2008 สร้าง Database Access 2007 ให้มีการใส่รหัสผ่านอย่างไร

        Const DATABASE_FILE As String = "D:\db\spare\data.mdb;JET OLEDB:Database password=11111"
        Dim strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                    "Data Source=" & DATABASE_FILE

    Dim provide As String = "Provider=Microsoft.ACE.OLEDB.12.0"
    Dim source As String = "Data Source='C:\Projects\dbFile.accdb'"
    Dim pass As String = "Jet OLEDB:Database Password='xxxxxx'"

    Public conn As New OleDbConnection(provide + ";" + source + ";" + pass)