i am getting in the bold line and the error is "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another."
how can i resolve this
trQry = "Select * from OPTIMIZER"
'Connection String
strConnection = ("provider=sqloledb;Server=VSDOMAIN;database=IDCExtract;Uid=sa;")
Dim cnAp As OleDb.OleDbConnection
cnAp = New OleDb.OleDbConnection(strConnection)
cnAp.Open()
If cnAp.State = ConnectionState.Open Then
MsgBox("Connection is open")
ElseIf cnAp.State = ConnectionState.Closed Then
MsgBox("Connection is colsed")
End If
rs = New ADODB.Recordset
rs.Open(strQry, cnAp, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
iFreeFile = FreeFile()
file_name = "c:\abc1.txt"
FileOpen(iFreeFile, file_name, OpenMode.Append)

For i = 0 To rs.Fields.Count - 1
Print(iFreeFile, rs.Fields(i).Name & ";")
Next
Print(iFreeFile, "")

For i = 0 To rs.RecordCount - 1
For j = 0 To rs.Fields.Count - 1
Print(iFreeFile, rs.Fields(j).Value & ",")
Next
Print(iFreeFile, "")
rs.MoveNext()
Next
' Close(iFreeFile)
rs.Clone()
rs = Nothing
cnAp.Close()