sql connection with vb.net

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

pls help its very urgent

You should know than saying "pls help its very urgent" just brings the opposite effect. People here is helping for free in the spare time. So show a bit respect to them. If it is urgent, then use google, search and try it on your own, instead of posting in a forum and waiting for an answer.