SQLite doesn't have built-in support for encryption. If there is a specific column that you want to encrypt then you can RandomAccessFile.WriteEncryptedObject to convert it to a blob and then put it in the database.
Dim list1 As String
Dim Buffer(1024) As Byte
Dim raf As RandomAccessFile
list1 = ESPCEAN
raf.Initialize3(Buffer, False)
raf.WriteEncryptedObject(list1, "password", raf.CurrentPosition) ' Error here