I am having trouble in the below code its keep getting me error on line
rst.Fields(Cells(1, i).Value) = Cells(x, i).Value
i dont know what the problem is please help me out.
the complete code is here
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset