The follwing code is an example how to achieve the task.
<Code>
Imports System.Data
Imports System.Data.SQLite
Public Sub ExportToXML()
Dim DBConnection As New SQLiteConnection
With DBConnection
.ConnectionString = "Data Source=TEST.Sqlite" '/ put in the name of your database
.Open()
End With
'/ put in the name of the table you want to export
Dim DataAdapter As New SQLiteDataAdapter("SELECT * FROM [TestTable]", DBConnection)
Dim DBTable As New DataTable
DBTable.TableName = "SQLiteTable"
DBTable.Locale = System.Globalization.CultureInfo.InvariantCulture
DataAdapter.Fill(DBTable)
DBTable.WriteXml("C:\Test.XML", True)
End Sub
</Code>
Cheers,
Michael