Dim con As New SqlConnection("server=gpvsrv20; uid=BillingSystem; pwd=Labtec; database=BillingSystem;")

con.Open()
Dim da As New SqlDataAdapter _
("Select * From patentsfiles", con)
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As DataSet = New DataSet

da.MissingSchemaAction = MissingSchemaAction.AddWithKey


da.Fill(ds, "patentsfiles")

' При выполнении этой команды выходит - System error, до этого она не раз отрабатывает.

Dim myRow As DataRow
Try
myRow = ds.Tables("patentsfiles").NewRow()
myRow("b210_appl_number") = subapplname
myRow("extension") = ".doc"
myRow("formula") = MyFormula
myRow("abstract") = MyAbstract
myRow("description") = MyDescription

ds.Tables("patentsfiles").Rows.Add(myRow)
da.Update(ds, "patentsfiles")