Измените код для использования базы данных sqlite вместо существующего файла .mdb в VS2017

---

Я был Visual Studio 2010, чтобы сделать твики отображения на программе написания писем, которая использует базу данных sqlite .db. при использовании его на машине XP с Visual Studio 2010 он работал отлично, и полученная программа правильно устанавливается и запускается на машинах XP, Win 7 и win10.

Моя проблема заключается в том, что теперь я перешел на машину win 10 с VS 2017, и когда проект загрузился после преобразования, он, похоже, был изменен с sqlite.
У меня есть sqlite, установленный и пригодный для использования на машине win 10, и я смог прикрепить правильную базу данных.

Есть какие-нибудь предложения, как распутать эту кашу? Я ищу руководство о том, как продвигаться по моей довольно крутой кривой обучения.

Я скопировал запустить из VB кода в главной форме ниже :

Что я уже пробовал:

Imports System
Imports System.IO
Imports System.Collections
Imports System.Data.SQLite
Imports Word = Microsoft.Office.Interop.Word
Imports System.Threading
Imports System.Runtime.InteropServices

Public Class Letters
    Dim m_SqlCommand As SqlClient.SqlCommand
    Dim m_tempCommand As SqlClient.SqlCommand
    Dim m_tempReader As SqlClient.SqlDataReader
    Dim m_SqlCommand1 As SqlCommand
    Dim m_SqlReader As SqlDataReader
    Dim m_SqlReader1 As SqlDataReader
    Dim mLetterIndex As String
    Dim mSingleSenderTemplate As String
    Dim mDoubleSenderTemplate As String
    Dim mPDFTemplate As String

    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        cboSenderOneTitle.Focus()
        Call SetControlValues()
        gbSubHeadingText.Visible = False
    End Sub

    Private Sub btnSelectLetter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectLetter.Click
        Call GetControlValues()

        If gSenderOneLastName = gSenderTwoLastName Then
            CombinedSendFrench.Text = (gFR1Title) & " et " & gTitle2FR & " " & gSenderOneForenames & " " & gSenderOneLastName
        ElseIf gSenderOneLastName <> gSenderTwoLastName Then
            CombinedSendFrench.Text = (gFR1Title) & " " & gSenderOneForenames & " " & gSenderOneLastName & " et " & gTitle2FR & " " & gSenderTwoForenames & " " & gSenderTwoLastName
        End If



        Dim mstrSQL As String
        Dim conn As New SqlConnection()
        conn.ConnectionString =DataSource=.\SQLlite;AttachDbFilename=LetterSelectorDB.db" & Application.StartupPath & "\" & "LetterSelectorDB.db" & ";Integrated Security=True;User Instance=True"
        conn.Open()

---