For Each nCol As DataColumn In objDataSet.Tables("test").Columns
                    nFieldsNameStr += nCol.ColumnName & "= @" & nCol.ColumnName _
                      & ", "
 
                    objSqlDBCommand.Parameters.Add("@" & nCol.ColumnName, _
                      SetSQLDataType(nCol.DataType.Name))
                    objSqlDBCommand.Parameters(i).SourceColumn = nCol.ColumnName
                    objSqlDBCommand.Parameters(i).Direction = _
                      ParameterDirection.InputOutput
                    objSqlDBCommand.Parameters(i).SourceVersion = _
                    DataRowVersion.Original
                    i += 1
Next
objSqlDBCommand.CommandText = "UPDATE " & nSqlTabName & " SET " & _
  nFieldsNameStr.Substring(0, nFieldsNameStr.Length - 2) & " WHERE ID = 2"
 
'SetSQLDataType ist eine subroutine mit der ich den richtigen datentype zurück 
' gebe