Shape Command in Access

[SangGyun Kim]

I want to use "Shape Command" in Access

----------------------------------------------------------
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

conn.Provider = "MSDataShape"

conn.Open "Data Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & CurrentProject.FullName & ";"

----------------------------------------------------------

but this code raise error!!
lock error because mdb file is already opened

how can I overcome this error?

thank you..