Visual Basic

Private Sub cmbInsertData_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbInsertData.SelectedIndexChanged<br />
        Dim dset As DataSet '= New DataSet()<br />
        If Len(cmbInsertData.SelectedItem) < 1 Then<br />
            MessageBox.Show("Please choose a table to view")<br />
        Else<br />
            Try<br />
                tblName = (cmbInsertData.Text)<br />
                setTableName(tblName)<br />
                dbConn.openExistingDatabse("Data Source=" & getDBName() & ";Version=3;New=False;Compress=True;")<br />
                dbConn.createSQLCommand()<br />
                Try<br />
                    dset = dbConn.selectAll("SELECT * FROM " & tblName, tblName)<br />
                Catch es As Exception<br />
                    MessageBox.Show("error here -" & es.Message)<br />
                End Try<br />
                StoreDataSet.setDataSet(dset)<br />
                DataGrid1.DataSource = dset.Tables(0).DefaultView<br />
            Catch es As Exception<br />
                MessageBox.Show(es.Message)<br />
            End Try<br />
        End If<br />
    End Sub

Public Function selectAll(ByVal strSQL As String, ByVal tableName As String)<br />
        Dim dset As DataSet = New DataSet()<br />
        sqlite_cmd.CommandText = (strSQL)<br />
        sqlite_datareader = sqlite_cmd.ExecuteReader()<br />
<br />
        Dim sqlite_dataAdapter As SQLiteDataAdapter = New SQLiteDataAdapter(strSQL, sqlite_conn)<br />
        sqlite_commandBuilder = New SQLiteCommandBuilder(sqlite_dataAdapter)<br />
        sqlite_dataAdapter.Fill(dset, tableName)<br />
        Return dset<br />
    End Function