Dim cnn As New ADODB.Connection
cnn.Provider = "MSDataShape"
cnn.Open "DSN=aa"
Dim Rs As New ADODB.Recordset
Dim str1 As String
Dim str2 As String
str1 = "select * from project_detail where pid=" & Me.pid
str2 = "shape{" & str1 & "}"
Rs.Open str2, cnn