a sample DB Class

my own database class


Public Class Dbclass
Public dbcon As SqlConnection
Sub Opencon()
dbcon = New SqlConnection("Data Source=WEBSERVER;Initial Catalog=RameshTest;User ID=sa; pwd=sql; Pooling=False")
If dbcon.State = ConnectionState.Closed Then
dbcon.Open()
End If
End Sub
Sub Closecon()
If dbcon.State = ConnectionState.Open Then
dbcon.Close()
End If
End Sub
End Class