Try
'Para coger los datos de Tabla
cnGOBEX400 = New SqlConnection(Cadena)
ComandoSQL = New SqlCommand("select * from Tabla", cnGOBEX400)
Dim cb As New OleDbCommandBuilder(DAaccess)
Dim dr As DataRow
Dim DAaccess As New OleDbDataAdapter("SELECT * FROM Tabla", cnAccess)
Dim DSaccess As New DataSet
cnGOBEX400.Open()
Lector = ComandoSQL.ExecuteReader()
'Para meter los datos en access
DAaccess = New OleDbDataAdapter("Select * from Tabla", cadenaA)
DAaccess.Fill(DSaccess, "Tabla")
dr = DSaccess.Tables("Tabla").NewRow
dr(0) = Me.txtOrden.Text
DAaccess.Update(DSaccess, "Tabla")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try