Dim Result As Integer
dim out1(1 to 5,1 to 100) as Variant
dim connection,i as long
Dim retcode As Variant
dim cnStr,outputstr,query as string
i=1
cnStr="driver={SQL Server};server=(JACKXING);uid=sa;pwd=12345;database=EvaluateDB"
onnection = SQLOpen(cnStr,outputstr,prompt:=4)