


Imports System.Data.SqlClient
Dim conn As SqlConnection
Dim command As SqlCommand
conn.ConnectionString = "Data Source=<your_database_server>;Initial Catalog=<your_database>;User ID=<your_user>;Password=<your_password>"
conn.Open()
command.CommandText = "INSERT INTO <your_table> VALUES (<your,values>)"
command.Connection = conn
iRowsAffected = command.ExecuteNonQuery
conn.Close()
