I tried to debug and it gives error to me on MyConn.Open line:
Dim MyConn As New ADODB.Connection ' For Forecaster Access tables
Const ForecasterConnString As String = "DSN=Forecaster"
Dim i As Integer, strSQL As String, intRows As Integer
Dim PartNum As String, QtyReq As Double, DateReq As String, DateLoaded As Date, LoadedBy As String, strProdCode As String
MyConn.ConnectionString = ForecasterConnString
If MyConn.State <> adStateOpen Then
MyConn.Open
End If
What I have tried:
Please help me to bug the error as I am not able to upload the data into the system.