Error when trying to read SQLite database Windows Universal Apps VB.NET

I am using the following code to try to access a database and fill a combo box:

            With cmbPaciente.Items
               Dim sConexao As String = Path.Combine(ApplicationData.Current.LocalFolder.Path, "\Banco\Deal.db")
               Dim aConexao As New SQLiteConnection(sConexao)
               Dim Comando = aConexao.CreateCommand("select Name from PData")
               Dim Resultado As String = aConexao.Query(Comando)
               For Each item In Resultado
                   .Add(item)
               Next
            End With

But I am getting this error:

BC32050  VB.NET Type parameter '' for '' cannot be inferred.

Already tried with:

            With cmbPaciente.Items
               Dim sConexao As String = Path.Combine(ApplicationData.Current.LocalFolder.Path, "\Banco\Deal.db")
               Dim aConexao As New SQLiteConnection(sConexao)
               Dim Comando = aConexao.CreateCommand("select Name from PData")
               Dim Resultado As String = aConexao.Execute(Comando)
               For Each item In Resultado
                   .Add(item)
               Next
            End With

With no success also. Of course I am doing something wrong, but my knowledge isnt enough to understand what. Any clues will be very appreciated.