Database.vb Imports System.Data.SqlClient Public Class Database Dim con As New SqlConnection( "Data Source=G20;Initial Catalog=Me;Integrated Security=True" ) Public Sub cnopen() If con.State = ConnectionState.Open Then con.Close() End If con.Open() End Sub Public Sub cnclose() If con.State <> ConnectionState.Closed Then con.Close() End If End Sub Public Function Displaygrid( ByVal query As String ) As DataTable Dim dt As N...
FOR COMP SCIENCE & IT