Resolved Connection not working

[Tomson]

Here is some code that was working in VB 6.0. I have upgraded my machine to windows xp pro and vb.net. This code now does not work in vb 6.0. I do have mdac 2.6 installed on this machine. I still have both vb 6.0 and vb.net installed also. Can anyone give me some ideas why this does not work. Again any and all help is greatly appreciated.

CODE:

Public dbconnect As New ADODB.Connection
Public dbrec As New ADODB.Recordset

Private Sub Command1_Click()
GetConnection
End Sub
Public Sub GetConnection()
Dim message
dbconnect.Open ("Provider=Microsoft.Jet.OLEDB.3.51;" _
& "Persist Security Info=False;" _
& "Data Source=C:\Generator.mdb")

End Sub

ERROR MESSAGE RECEIVED:
Run-time error '-2147024770(8007007e)
The specified module could not be found.