Connect VB.net to SQL Server 2005 and Run on software on intranet

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