Imports System.Data
 
Imports System.Data.Odbc
 
Imports System.Data.SQLite
 
Public Class Form1
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        ' Connection zu SQLite öffnen
        ' (In Connection-String wird angegeben, dass Datei 
        ' erzeugt werden soll, wenn nicht vorhanden)
 
        Dim oSQLiteConnection As SQLite.SQLiteConnection = New _
          SQLite.SQLiteConnection
 
        oSQLiteConnection.ConnectionString = "Data Source=test.db;" & _
          "New=True;Version=3;Pooling=False;Compress=True"
 
        ' Connection zu Source (ODBC)
 
        Dim oODBCConnection As Odbc.OdbcConnection = New Odbc.OdbcConnection
 
        oODBCConnection.ConnectionString = _
          "DSN=fbprobe;UID=SYSDBA;PWD=masterkey"
 
        ' Daten aus SourceSQL in SQLite-Datenbank schreiben
 
        Dim oImportDBUtils As ImportDBUtils = New ImportDBUtils
 
        oImportDBUtils.CopyODBCDataToSQLite(oODBCConnection, oSQLiteConnection, _
          "SELECT * from Hasbergen; commit;", "IMPORT_DATEN")
 
    End Sub
End Class

Windows XP Home Service Pack 3 - Visual Basic 2008 Express - SQL Server 2008 Express with advance service