In this post you can learn how to Insert Query In Vb.Net For Sqlite Database copy the below coding then paste to following places
Imports System.Data.SQLite
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ccoon As New SQLiteConnection("data source=C:\Users\HP1\Downloads\data.db")
Dim s As String = "insert into Table1 Values ('" + TextBox1.Text + "','" + TextBox2.Text + "')"
ccoon.Open()
Dim cmd As New SQLiteCommand(s, ccoon)
cmd.ExecuteNonQuery()
MessageBox.Show("success")
ccoon.Close()
End Sub
End Class