Visual Basic - Formulario en visual basic 2010 y conectarlo a base de datos sql server 2008

Private Sub btguardar_Click(sender As Object, e As EventArgs) Handles btguardar.Click

    Using conn As New SqlConnection("Data Source=tuip o nombre de servidor sql;Initial Catalog=tubasededatos;Integrated Security=true")

        conn.Open()

        Dim query As String = "INSERT INTO tutabla (numcliente,nomcliente,direccion,telefono,correo,fechaalta,listaprecio,rfoto) VALUES (@numcliente,@nomcliente,@direccion,@telefono,@correo,@fechaalta,@listaprecio,@rfoto)"

        Dim cmd As New SqlCommand(query, conn)

        Try

            cmd.Parameters.Clear()

            cmd.Parameters.AddWithValue("@numcliente", txtnumcliente.Text)

            cmd.Parameters.AddWithValue("@nomcliente", txtnombrecliente.Text) 'agrega la fecha del label fecha a la base de datos

            cmd.Parameters.AddWithValue("@direccion", txtdireccion.Text)

            cmd.Parameters.AddWithValue("@telefono", txttelefono.Text)

            cmd.Parameters.AddWithValue("@correo", txtcorreo.Text)

            cmd.Parameters.AddWithValue("@fechaalta", txtfechaalta.Text)

            cmd.Parameters.AddWithValue("@listaprecio", txtlistaprecio.Text)

            cmd.Parameters.AddWithValue("@rfoto", lbruta.Text)

            cmd.ExecuteNonQuery()

            MessageBox.Show("CLIENTE GUARDADO CORRECTAMENTE") ' si los datos fueron guardados mandara este mensaje 

        Catch ex As Exception

            MessageBox.Show("ERROR AL INGRESAR LOS DATOS") 'si los datos no fueron guardados mandara este mensaje

        Finally

            conn.Close()

        End Try

    End Using

End Sub