VB.NET Connectivity

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