...dim strSQL as string
Dim rsDetail As New ADODB.Recordset
'--get the detail of the selected record ----
strSQL = "Select * from TableName where TablePKField = '" Form1.PKVar & "'"
rsDetail .Open strSQL, dbConnection, adOpenKeyset, adLockOptimistic, adCmdText...