Solved: Early Binding ADODB from Excel

[Bob Phillips]

The idea Dr.K is to have the option to run it early bound or late bound. You could do what you say, or you could use conditional compliation on the constants, together with something like this

[vba]

#If EarlyBound Then
Dim oConn As ADODB.Connection
Dim oRS As ADODB.Recordset

Set oConn = New ADODB.Connection
oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DBPath
Set oRS = New ADODB.Recordset
#Else
Dim oConn As Object
Dim oRS As Object

Set oConn = CreateObject("ADODB.Connection")
oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DBPath
Set oRS = CreateObject("ADODB.Recordset")
#End If
[/vba]