Source Code : - Imports System.Data.OleDb Public Class UserControl1 Dim pro As String Dim connstring As String Dim command As String Dim myconnection As OleDbConnection = New OleDbConnection Private Sub UserControl1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click pro = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = C:\Users\91846\OneDrive\Documents\demo_project.accdb" connstring = pro myconnection.ConnectionString = connstring myconnection.Open() command = "insert into STUDENT([Stu_Name],[Stu_Marks],[Stu_Age]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')" Dim cmd ...