数据库SQLite3的连接 vb.net

1.无密码

Imports System.Data.SQLite

  Public Shared Function getConnection() As SQLiteConnection
        Dim con As New SQLiteConnection
        Try
            'con.ConnectionString = "Data Source=" & Application.StartupPath & "/QRData.db;"
            con.Open()
            Return con
        Catch ex As Exception
            MsgBox("Error404.连接异常.", MsgBoxStyle.Critical)
            Return Nothing
        End Try
    End Function

2.带密码

Imports System.Data.SQLite

 Public Shared Function getConnection() As SQLiteConnection
        Dim con As New SQLiteConnection
        Try
            con.ConnectionString = "Data Source=data.db;Password=口令"
            con.Open()
            Return con
        Catch ex As Exception
            MsgBox("Error404.连接异常.", MsgBoxStyle.Critical)
            Return Nothing
        End Try
    End Function

用到的dll 附带*.db数据库文件带数据库口令hbmmcisn
链接：https://pan.baidu.com/s/1_qQsbFPvA3Qj6sWZAMG-2g
提取码：3m9k

需要详细学习的 请转移另外一篇 ：

VB.NET连接FireBird(整理最全)