Dim ruta As String
If File.ExternalWritable Then
ruta = File.DirDefaultExternal
Else
ruta = File.DirInternal
End If
If File.Exists(ruta, "date.db") = False Then
File.Copy(File.DirAssets, "date.db", ruta, "date.db")
End If
SQL1
.Initialize(ruta, "date.db", True)