Class VB.net kết nối Cơ sở Dữ Liệu SQL Server 2005

 Imports System.Data
Imports System.Data.SqlClient
Public Class database
    Public Const strconn As String = "Data Source=.\SQLEXPRESS;Database=HT;Integrated Security=true"
    Public Function capnhat(ByVal sql As String, ByVal strconn As String) As Boolean
        'Tao doi tuong connect
        Dim conn As New SqlConnection(strconn)

        'Tao doi tuong command
        Dim comm As New SqlCommand(sql, conn)
        comm.CommandType = CommandType.Text

        Try
            'Kiem tra conncet
            If conn.State <> ConnectionState.Open Then
                'Mo connect
                conn.Open()
                'Thuc thi lenh SQL
                comm.ExecuteNonQuery()
                Return True
            End If
        Catch ex As Exception
            Return False
        Finally
            'Kiem tra conncet
            If conn.State <> ConnectionState.Closed Then
                'Dong connect
                conn.Close()
                'Giai phong tai nguyen
                conn.Dispose()
            End If
        End Try
    End Function
End Class