Dim datum As New Date(2000, 8, 20)

Imports System.Data.SQLite
Imports System.IO
Public Class Form1
    Dim SQLconnect As New SQLite.SQLiteConnection()
    Dim SQLcommand As SQLiteCommand = SQLconnect.CreateCommand
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'Datenbank öffnen
        SQLconnect.Close()
        SQLconnect.ConnectionString = "Data Source=database.DB3;"
        SQLconnect.Open()
        'DB Abfrage
        SQLcommand.CommandText = "CREATE TABLE testDB           (id INTEGER" & _
          "PRIMARY KEY AUTOINCREMENT, " & _
                                                                "textfeld TEXT," & _
                                                                "" & _
                                                                "datumsfeld" & _
                                                                "DATE);"
        SQLcommand.ExecuteNonQuery()
 
        Dim datum As New Date(2000, 8, 20)
        SQLcommand.CommandText = "INSERT INTO testDB (textfeld, datumsfeld)" & _
          "VALUES('" & datum & "','" & datum & "');"
        SQLcommand.ExecuteNonQuery()
        SQLcommand.CommandText = "SELECT * FROM testDB;"
        Dim SQLreader As SQLiteDataReader = SQLcommand.ExecuteReader()
        While SQLreader.Read()
            Me.TextBox1.Text = SQLreader("textfeld")
            Me.TextBox2.Text = SQLreader("datumsfeld") 'Die Zeichenfolge wurde 
            ' nicht als gültiges DateTime erkannt.
        End While
        'Verbindungen zur Datenbank schließen
        SQLcommand.Dispose()
        SQLconnect.Close()
    End Sub
End Class