Public Function RecogerConsulta(ByVal mySql As String) As DataTable
 
       Dim tmpTable As New DataTable
 
        Try
 
               cnnl = New SQLiteConnection("Data Source=Clientes.s3db")
 
               cnnl.Open()
 
               Ada = New SQLiteDataAdapter(mySql, cnnl)
 
               Ada.Fill(tmpTable)
 
               cnnl.Close()
 
        Catch ex As Exception
 
               Msgbox(ex.Message, "Error")
 
        End Try
 
        Return tmpTable
 
        End Function
 
        Private Sub Form1_Load
 
               datagrid1.DataSource = bd.RecogerConsulta("SELECT * FROM Usuario")
 
        End Sub
 
 

 
        Dim SQLconnect As New System.Data.SQLite.SQLiteConnection
        Dim dataSet = New DataSet()
 
        SQLconnect.ConnectionString = "Data Source=Clientes.s3db"
 
        dataSet = dg1.DataSource
 
        SQLconnect.Open()
 
        Dim dataAdapter = New SQLiteDataAdapter("SELECT * FROM Usuario", SQLconnect)
 
        Dim CB As SQLiteCommandBuilder = New SQLiteCommandBuilder(dataAdapter)
 
        dataAdapter.UpdateCommand = CB.GetUpdateCommand()
        dataAdapter.InsertCommand = CB.GetInsertCommand()
        dataAdapter.DeleteCommand = CB.GetDeleteCommand()
 
        [b]dataAdapter.Update(dataSet, "Usuario")[/b]
 
 

    'No se pq esto me parece que esta mal
    dataset = dg1.datasource
 

 
Public Function CreateCmdsAndUpdate(ByVal dataSet As DataSet, _
ByVal connectionString As String, ByVal queryString As String) As DataSet
 
    Using connection As New OleDbConnection(connectionString)
        Dim adapter As New OleDbDataAdapter()
        adapter.SelectCommand = New OleDbCommand(queryString, connection)
        Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter)
 
        connection.Open()
 
        Dim customers As DataSet = New DataSet
        adapter.Fill(customers)
 
        ' Code to modify data in DataSet here 
 
        'Supongo que aqui es donde va la linea que creo esta mal
        'que tiene los cambios en memoria. Pero obtengo la excepcion que tambien
        'la explican ahi mismo en la pagina
 
         'DBConcurrencyException
 
        dataset = dg1.datasource
 
 
        adapter.Update(customers)
        Return customers
    End Using
End Function