Выгрузка данных из БД в текстовый файл

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Label1.Text = "res - " & SetStr("5")
        MsgBox("res - " & SetStr("5"))
 
    End Sub
 
 Function SetStr(ByVal KeyValue As Integer) As String 
 
        SqlCom = New OleDb.OleDbCommand("SELECT [Фамилия] FROM [Таблица1] WHERE Номер_уровня=" & KeyValue, Con)
        Con.Open()
        'res = SqlCom.ExecuteScalar()
        Try
            res = SqlCom.ExecuteScalar()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Con.Close()
        Return res
    End Function

Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click
    ' Подключение к базе данных
    Dim conn As SQLiteConnection = SQLiteConnection("Здесь должна быть строка подключения к базе данных")
    ' Запрос к базе данных
    Dim objCommand As SQLiteCommand = New SQLiteCommand("SELECT * FROM Customers", conn)
    ' Считыватель базы данных
    Dim objReader As SQLiteDataReader = objCommand.ExecuteReader()
    ' Строкопостроитель
    Dim sb As StringBuilder = New StringBuilder()
    ' До тех пор, пока есть данные 
    Do While objReader.Read
        ' Получить информацию
        sb.AppendLine(objReader.GetString(0))
    Loop
    ' Закрыть соединение к базе
    objReader.Close()
    objCommand.Dispose()
    conn.Close()
    conn.Dispose()
    ' Перезаписать информацию в файл
    My.Computer.FileSystem.WriteAllText("имя файла", sb.ToString(), False)
End Sub