Imports System.Data.SQLite Imports System.Data Public Class Form1 Dim strCon As String ="Data Source=d:\Data\Mydata.sqlite" Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Con As New Data.SQLite.SQLiteConnection(strCon) Con.Open() ' 链接数据库 .....