sql connection with vb.net

See more:

SQL-Server-2005

SQL-Server

i want to add data in sql server table from vb.net application,my code block is

Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlConnection

Public Class Form1
    Dim cn As SqlConnection

    Dim ConStr As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ConStr = "Data Source=ANAND-PC\SQLEXPRESS;Initial Catalog=anand;User ID=;Password="
        cn = New SqlConnection(ConStr)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cmd As New SqlClient.SqlCommand
        Dim query As String
        query = "Insert Into anand1 (roll) values (" & TextBox1.Text & ");"

        cmd.CommandText = query
        cmd.CommandType = CommandType.Text
        cmd.Connection = cn

        cn.Open()

        cmd.ExecuteNonQuery()

        cn.Close()

    End Sub
End Class

it is showing some error in cn.open

please help its very urgent