Private Sub Read_DBSQL()
daSQL = New Odbc.OdbcDataAdapter("SELECT blabla....", _
  conndbSQL.ConnectionString)
 
daSQL.AcceptChangesDuringFill = False
Try
   daSQL.Fill(TABSQL)
Catch ex As Exception
   MsgBox(ex.Message)
End Try

Private Sub Write_lokal_DB()
  Try
     daLokal = New SqlServerCe.SqlCeDataAdapter("SELECT * FROM DBLokal", _
       connLokal)
 
     daLokal.Update(TABSQL)
  Catch ex As Exception
     MsgBox(ex.Message)
  End Try
End Sub