Array

Hej!

Jag använder Getrows() för at hämta ut ID från en tabell enligt nedanstående kod.

Nu vill jag bygga ut det lite och även få med [Note].

Set Conn=CreateObject("ADODB.Connection")
	Conn.Open Application.sDbConnectionString
	Set Rs=CreateObject("ADODB.Recordset")
	sSQL="SELECT [Id], [Note] FROM [tblArticle]"
	Rs.Open sSQL, Conn
	aRow=Rs.getrows()
	Rs.Close
	Set Rs = Nothing
	for i = 0 to ubound (aRow, 2)
		'sNote= wee
		'if foo <>"" then sNote = vbCrLf&sNote
		sSQL=	"DECLARE @ptrval varbinary(16)" &  vbCrLf _
				& "SELECT @ptrval = TEXTPTR(Note) FROM [tblArticle] WHERE [Id] = " & aRow(0,i) &  vbCrLf _
				& "UPDATETEXT [tblArticle].[Note] @ptrval NULL NULL '" & sNote & "'" & vbCrlf _	
				& "UPDATE [tblArticle] SET [Price] = [Price] * " & fPercentValue & ", [Modified] = GETDATE() WHERE [Id] = " & aRow(0,i)
		Conn.Execute sSQL
	Next
	Set Conn=Nothing

Hur får jag ut [Note] från arrayen?

Min tanker är att kolla om [Note] är tom. Är den det ska infot bara läggas till, Finns något lagrat i [Note] ska det läggas till ett vbCrLf först...

Hoppas någon fattar!

Mvh
Henrik