How I do to add 8000 characters to the recordset

See more:

SQL-server-2000

VB6

SQL-Server

I have the grid I want to feel that grid from the sql server 2000. I want to add a 200 columns with a 8000 characters in a adodb recordset. I have done this by using the recordset but there is error of recordset to fetch data for every column with 8000 characters. I what a solution how to fetch a data from sql server 2000 with a column of varchar (8000) to the recordset


Code for this is

Set recList = New ADODB.Recordset
    
    ' execute any SQL build statements
    If strSql3 & "" <> "" Then
        Dim lngResults As Long
        Call CmdExecuteSqlAsync(conn, Replace(strSql3, "___temp_table___", strTempTable), cmdCancel, _
            lblStatus, lngResults)
    End If
    
    recList.CursorLocation = adUseClient
    recList.CursorType = adOpenStatic
    recList.LockType = adLockBatchOptimistic

    recList.Properties("Initial Fetch Size") = 1
    recList.Properties("Background Fetch Size") = 1
    blnFetching = True
    strSQL = Replace(strSQL, "___temp_table___", strTempTable)
    recList.Open strSQL, conn, adOpenStatic, adLockBatchOptimistic, adAsyncFetch + adAsyncExecute
    lblStatus = Format(Now - dtmStart, "hh:mm:ss") & " elapsed, 0 record(s)"
    Do While blnFetching = True And cmdSearch.Enabled = False And recList.State > 1
        lblStatus = Format(Now - dtmStart, "hh:mm:ss") & Mid(lblStatus, InStr(lblStatus, " elapsed, "))
        Sleep 200
        SafeDoEvents
    Loop

//reclist is the object of adodb recordset