dim da as new SQLDataAdapter /* oder wie immer das bei dir heißt
da.SelectCommand = New SqlCommand("SELECT * FROM tblFormeln", myConn)
 
Dim cb As new SqlCommandBuilder (da)
 
            da.Fill(ds, "tblFormeln")
 
 
	With ds.Tables("tblFormeln").Rows(mdlVerschiedenes.intDatensatz)
                /* das mach ich per collection und nicht per Vektor */
        End With
 
            da.Update(ds, "tblFormeln")

Micke