Imports System.Data.Oledb
Dim con As New OledbConnection("Provider=microsoft.Jet.oledb.4.0DataSource=D:\mydata.mdb;")
Dim cmd As New OledbCommand
Public var1 As String
Public Sub New()
con.Open()
cmd.Connection = con
cmd.CommandText = "SELECT * FROM table1"
End Sub
Public Sub creates()
cmd.CommandText = "INSERT INTO table1(Neyms) VALUES('" + var1 + "')"
cmd.ExecuteNonQuery()
End Sub