database linking

[That Guy via AccessMonster.com]

I am trying to link to tables in a database. I have used the following code,
but I get the following error
Run-time error '-2147467259 (80004005)':

Method 'RecordSet' of Object '_Form_Sales Order Log' failed.

What I am trying to do is while in the form Sales Order Log, but able to
access information in the customerdbnew table. Thanks for any help.

Private Sub ShipmentRequest_Click()

Set Me.Recordset = rstNwind
Dim cnnNwind As New ADODB.Connection
Dim rstNwind As New ADODB.Recordset

With cnnNwind
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open "\\Backup\hosted files\CustomerDatabase\customerdbnew.mdb",
"admin"
End With

With rstNwind
Set .ActiveConnection = cnnNwind
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.LockType = adLockOptimistic

End With
Set Me.Recordset = rstNwind
--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200508/1

[MGFoster]

That Guy via AccessMonster.com wrote:

I am trying to link to tables in a database. I have used the following code,
but I get the following error
Run-time error '-2147467259 (80004005)':

Method 'RecordSet' of Object '_Form_Sales Order Log' failed.

What I am trying to do is while in the form Sales Order Log, but able to
access information in the customerdbnew table. Thanks for any help.

Private Sub ShipmentRequest_Click()

Set Me.Recordset = rstNwind
Dim cnnNwind As New ADODB.Connection
Dim rstNwind As New ADODB.Recordset

Remove the Set Me.Recordset = rstNwind in the line before
Dim cnnNwind.... rstNwind isn't defined until the line after Dim
cnnNwind; and, you have the Set command in the correct position - at the
bottom of the Sub routine, anyway.
--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)