It stops at the bolded line
Error says"
Run time error 3706
Provider can not be founf. It may not be properly installed."
Please help
------------------------------------------------------------------------------------------------------------
Sub ExportToAccess(rngData As Range, Optional blnHeader As Boolean = False)
Dim rstTable As New ADODB.Recordset
Dim lngRow As Long
Dim lngCol As Long
Dim strDB As String
Dim strTable As String
Dim intStartRow As Integer
If blnHeader = False Then
intStartRow = 1
Else
intStartRow = 2
End If
'--------Inputs----------
strTable = "Quotes"
'========================
' Open connection
Set objConnection = New ADODB.Connection
objConnection.ConnectionString = "provider =Microsoft.Jet.OLEDB.4.0; " & _
"data source =M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Quote DBase\Database1.mdb;" & _
"Jet OLEDB:Database Password=koala;"
objConnection.Open
'Set rstTable = New ADODB.Recordset
Set rstTable = Nothing
rstTable.Open strTable, objConnection, adOpenDynamic, adLockOptimistic, adCmdTable
For lngRow = intStartRow To rngData.Rows.Count
With rstTable
.AddNew
For lngCol = 0 To (.Fields.Count - 1)
On Error Resume Next
.Fields(lngCol) = rngData.Cells(lngRow, lngCol + 1).Value
Next lngCol
.Update
End With
Next lngRow
Set rstTable = Nothing
objConnection.Close
Set objConnection = Nothing
End Sub
Error says"
Run time error 3706
Provider can not be founf. It may not be properly installed."
Please help
------------------------------------------------------------------------------------------------------------
Sub ExportToAccess(rngData As Range, Optional blnHeader As Boolean = False)
Dim rstTable As New ADODB.Recordset
Dim lngRow As Long
Dim lngCol As Long
Dim strDB As String
Dim strTable As String
Dim intStartRow As Integer
If blnHeader = False Then
intStartRow = 1
Else
intStartRow = 2
End If
'--------Inputs----------
strTable = "Quotes"
'========================
' Open connection
Set objConnection = New ADODB.Connection
objConnection.ConnectionString = "provider =Microsoft.Jet.OLEDB.4.0; " & _
"data source =M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Quote DBase\Database1.mdb;" & _
"Jet OLEDB:Database Password=koala;"
objConnection.Open
'Set rstTable = New ADODB.Recordset
Set rstTable = Nothing
rstTable.Open strTable, objConnection, adOpenDynamic, adLockOptimistic, adCmdTable
For lngRow = intStartRow To rngData.Rows.Count
With rstTable
.AddNew
For lngCol = 0 To (.Fields.Count - 1)
On Error Resume Next
.Fields(lngCol) = rngData.Cells(lngRow, lngCol + 1).Value
Next lngCol
.Update
End With
Next lngRow
Set rstTable = Nothing
objConnection.Close
Set objConnection = Nothing
End Sub