SQLToGrid

Public Sub LoadGridFromSQL(TargetGrid As SSDBGrid, rdoConn _
As rdoConnection, Sql As String, Optional ClearGrid As _
Boolean = True)
Dim J As Integer
Dim rsResult As rdoResultset
Dim sAddItem As String
If ClearGrid Then
TargetGrid.RemoveAll
End If
TargetGrid.Redraw = False
Set rsResult = rdoConn.OpenResultset(Sql, _
rdOpenForwardOnly, rdConcurReadOnly, rdExecDirect)
With rsResult
Do Until .EOF
'Build add item string

sAddItem = vbNullString
For J = 1 To .rdoColumns.Count
If IsNull(.rdoColumns.Item(J - 1)) Then
sAddItem = sAddItem & vbNullString & vbTab
Else
sAddItem = sAddItem & _
.rdoColumns.Item(J - 1) & vbTab
End If
Next J
'Remove extra tab from end

TargetGrid.AddItem Left$(sAddItem, _
Len(sAddItem) - 1)
.MoveNext
Loop
.Close
End With 'rsResult
TargetGrid.Redraw = True
Set rsResult = Nothing
End Sub

-----------------------------------------------------------------------------------------------------------------------------------------