' verbindung öffnen, recordset öffnen, grid einrichten
Set con = createobject("ADODB.Connection")
Set rs = createobject("ADODB.Recordset")
 
con.Open "provider=sqloledb;data Source=testserver;initial catalog=daten;user" & _
  "id=sa;password=sa;"
rs.CursorLocation =3
 
rs.Open "select A, B, C, D, E, F, IsNull(SubNr, 0) as SubNr, IsNull(SubPos, '')" & _
  "as SubPos, IsNull(SubPosTxt, '') as SubPosTxt, Id as LaufNummer from" & _
  "testtable where " & _
  					 strW & " " & optausw2 , con, 3, 2
 
sevdatagrid.DataMode = 0
sevdatagrid.LockUpdate True
sevdatagrid.Clear
sevdatagrid.CreateClone = True
 
Set sevdatagrid.Recordset = rs
 
rs.close
set rs = nothing
 
' ... Grid einrichten
 
sevdatagrid.LockUpdate False
sevdatagrid.Refresh
sevdatagrid.AutoSort= True

sevdatagrid.Recordset.Fields("subnr").value = 2	' hier kommt der fehler
' auch versucht als string
'sevdatagrid.Recordset.Fields("subnr").value = "2"
sevdatagrid.Recordset.update
sevdatagrid.RowRefresh