..Protected Connectionstring as String
  Public Sub New()
    Connectionstring = "Data Source=" & SQLDB & ";Version=3"
  End Sub
 
Sub sql_LV_einlesen()
  Using myAdapter as new SQLiteDataAdapter("SELECT * FROM Optionen", _
    Connectionstring)
        'SQLight DB auslesen mit dem DataTable
        If Not oDT Is Nothing Then
            oDT.Clear() 'DataTable löschen
        End If
        myAdapter.Fill(oDT) 'DataTable füllen
  End Using
End Sub