Dim sql1 As String = "SELECT * from Table1 WHERE ForceDL = -1"
        cmd = New OleDbCommand(sql1, con)
        da = New OleDbDataAdapter(cmd)
 
        da.Fill(ds, "Table1")
        con.Close()
 
        DG1.DataSource = ds.Tables("Table1").DefaultView ' New 
        ' Data.OleDb.OleDbDataAdapter(sql1, con)

        ds.AcceptChanges()
 
        Try
            da.Update(ds)
        Catch Ex As Exception
            MsgBox(Ex.ToString())
        End Try