Erro ao listar fill: propriedade SelectCommand.Connection não foi inicializada

Olá a todos.
Eu tenho uma aplicação feita em visual studio 2017 na linguagem vb.net, utilizando banco de dados fire bird 3.0.
Como após inserir muitos registros no banco o firebire apresenta lentidão. Assim resolvi migrar para o sqlite. porém estou tendo problema pois ao executar da esse erro do topico. Utilizo uma classe de cone~xao.
Segue codigo da classe.

Imports System.Data.SQLite






Module Conexao


Public mySQLConn As New SQLiteConnection("Data source=C:\Users\\Samuel\Documents\Controle Portaria 2.0 atual\Controle Portaria 2.0\CONTROLE")

Sub Abrir()
If mySQLConn.State = 0 Then
mySQLConn.Open()

End If

End Sub

Sub Fechar()
If mySQLConn.State = 1 Then
mySQLConn.Close()
End If

End Sub




Nos formularios eu inicio com esses codigos:


Sub Listar()
Dim data As String
data = Now.ToString("yyyy-MM-dd")

Dim hora As String
hora = Now.ToString("HH:mm")
Try

Abrir()
Dim ds As New DataSet
Dim da As SQLiteDataAdapter

Dim sql As String
sql = "SELECT * from acessos order by hora_entrada desc"

da = New SQLiteDataAdapter(sql, mySQLConn)
da.Fill(ds, "acessos")
dg.DataSource = ds.Tables("acessos")

FormatarDG()

Catch ex As Exception
MsgBox("Erro ao Listar" + ex.Message)
End Try
End Sub



Funcionava perfeito no firebird esses codigos.
Se alguém poder me ajudar agradeço muito.
Obrigado.