---

Hej,

Jeg sidder og kæmper med et problem i forbindelse med brug af ODBC. Jeg har
skrevet et program der bruger almindelige UserDSNs til at connecte til
eksempelvis Excel.

Min FindData sub bliver kaldt med et interval mellem 1 og 10 sekunder - og
det virker fint, MEN når jeg kigger i Task Manageren kan jeg se, at Memory
usage på Excel og Applickationen stiger med henholds vis 12 og 16 KB pr
kald.

Hvad gør jeg galt??

På forhånd tak
Niels Borg



Public Sub OpenConn(varTbl as String)
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = DSN
Qry = "SELECT * FROM " & Chr(34) & varTbl & Chr(34)
cn.Open DSN
rs.CursorType = adOpenStatic
rs.Open Qry, cn, adOpenStatic
End Sub

Public Sub FindData()
rs.Open Qry
colCount = rs.Fields.Count - 1
rs.MoveFirst
Do Until rs.EOF = True
ExData = rs(0)
For i = 1 To colCount
ExData = ExData & ";" & rs(i)
Next i
rs.MoveNext
txtData = txtData & ExData & vbCrLf
Loop
rs.Close
End Sub