Elegant

### First define connection string ###
conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=[mdb filename path]")
cmd As New OleDb.OleDbCommand()
rs As OleDb.OleDbDataReader

### Insert record into the table. ###
cmd.Connection = conn
conn.Open()
cmd.CommandText = "[INSERT query]"
Dim rc as integer
rc = cmd.ExecuteNonQuery()
MsgBox(rc + “Record Inserted.”, MsgBoxStyle.Information = MsgBoxStyle.OkOnly)

### Select data from table ###
cmd.Connection = conn
conn.Open()
cmd.CommandText = "[SELECT query]"
rs = cmd.ExecuteReader()
While (rs.read())
combobox.Items.Add(rs.Item(0))
End while

### Displaying records in DataGridView1 ###
conn.Open()
Dim dtset As New DataSet(" ")
Dim adapter As New OleDb.OleDbDataAdapter(, conn)
adapter.Fill(dtset, "TABLENAME")
DataGridView1.DataSource = dtset.Tables("TABLENAME")
conn.Close()

DataGridView1.Columns(0).Width = 60
DataGridView1.Columns(1).Width = 40
DataGridView1.Columns(2).Width = 95

Imports System.Data.SqlClient

Dim conn As New SqlConnection('Data Source=[SERVER NAME/IP];" + "Initial Catalog=[DATABASENAME]" & ";" + "User ID=[USERNAME];" + "Password=[PASSWORD];")

### Insert in to the table ###
Dim query1 As String = "[INSERT query]"
Dim cmd As SqlCommand
cmd = New SqlCommand(query1, connstr)
conn.Open()
ra = cmd.ExecuteNonQuery()
MsgBox(ra & " Record updated")

### select data from table ###
conn.Open()
Dim cmd As New SqlCommand(SELECT query, conn)
Dim dr As SqlDataReader
dr = cmd.ExecuteReader
While dr.Read
cboScriptname.Items.Add(dr.Item(0))
End While

### Displaying record in DataGridView1 ###
conn.Open()
Dim da As New SqlDataAdapter(SELECT query, conn)
´Create DataSet, fill it and view in data grid
Dim dtset As New DataSet()
da.Fill(dtset, " ')
DataGridView1.DataSource = dtset.Tables(" ")

*** define connection string ***
Dim conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & 'Data Source=" & "[PATHNAME]" & ";" & 'Extended Properties=dBase IV;User ID=Admin;Password=;")
´ User ID=Admin;Password=; —is optional

*** Create table ***
Dim SQLstr As String
SQLstr = "[CREATE query]"
Dim cmd As New System.Data.OleDb.OleDbCommand(SQLstr, conn)
cmd.ExecuteNonQuery()
MsgBox("table Created.")
´ will create a file [tablename.dbf] inside [PATHNAME]

*** Insert into table. ***
conn.Open()
Dim SQLstr As String
SQLstr = "INSERT INTO [FILENAME.DBF] query"
Dim cmd As New System.Data.OleDb.OleDbCommand(SQLstr, conn)
cmd.ExecuteNonQuery()
MsgBox("Record Inserted.")
*** Select data from table. ***
cmd.Connection = conn
conn.Open()
cmd.CommandText = SELECT * FROM [FILENAME.DBF] query"
rs = cmd.ExecuteReader
MsgBox(rs.Item(0))