Imports System.Data.Sqlclient
Public Class Form1
dim con as SqlConnection("Data Source=VSS27;Initial Catalog=demo;Integrated Security=True")
Dim dss As DataSet
Dim sadap As SqlDataAdapter
Dim rs As SqlDataReader
Dim cmd As SqlCommand
Private Sub btnins_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnins.Click
Dim str As String
str = "INSERT INTO DEMO(&"textbox1.text" ,&"textbox2.text")
con = cmd.CommandType(rs)
cmd = dss.GetObjectData(str)
End Sub
End Class