Не удается произвести обновление данных в БД SQL

    Dim PAT = Application.StartupPath '& "\160500.dbf"
    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PAT & ";Extended Properties=dBase IV;User Id=Admin;Password=")
    Dim tbl As New DataTable
    Dim da As New OleDb.OleDbDataAdapter
    Dim cb As OleDb.OleDbCommandBuilder
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        da.UpdateCommand = cb.GetUpdateCommand()
        da.Update(tbl)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        da.SelectCommand = New OleDb.OleDbCommand("Select SN_LR,DATE_OTP,C_KATL,FIO,DS,MNN,PRODUCT,KO_ALL,PRICE_LS from 160500", cn)
        tbl.Clear()
        da.Fill(tbl)
        DataGridView1.DataSource = tbl
        cb = New OleDb.OleDbCommandBuilder(da)
    End Sub

 Private Sub localdb_savedata()
    DBconn = New SqlCeConnection("Data Source=Data Source=|DataDirectory|\Database.sdf")
    If (DBconn.State = ConnectionState.Closed) Then DBconn.Open()
    Dim SQLAdapter = New SqlCeDataAdapter("SELECT * FROM clinics", DBconn)
    Dim SQLDataSet As New DataSet
    Dim myTable = DataGridViewClinic.DataSource
    Dim cmdbuilder As New SqlCeCommandBuilder(SQLAdapter)
    SQLAdapter.Update(myTable, "clinics")
    MsgBox("Updated!", MsgBoxStyle.OkOnly, "")
End Sub

Imports System.Data.SqlClient
Public Class Form1
  Private sqlConn As New SqlConnection("Data Source=IANVAIO\SQLEXPRESS;Initial Catalog=NORTHWIND;Integrated Security=True")
  Private dbprimer As New SqlDataAdapter("Select * From Primer", sqlConn)
  Private sqlCmndBuilder As New SqlCommandBuilder(dbprimer)
  Private myDS As New DataSet
  Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    dbprimer.Fill(myDS, "primer")
    DataGridView1.DataSource = myDS.Tables(0)
  End Sub
  Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    dbprimer.Update(myDS.Tables(0))
    MsgBox("Обновленно!")
  End Sub
End Class