Comments by Justin Arokiaraj (Top 3 by date)

Private Sub Addpump_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As New SqlConnection
Dim ada1 As New SqlDataAdapter()
Dim ds1 As New DataSet
Conn = New SqlConnection("Persist Security Info=false;User Id=justin;Data Source=ARULJUSTIN\SQLEXPRESS;Initial Catalog=firemaintain;Integrated Security=True;Pooling=False")
Conn.Open()
ada1 = New SqlDataAdapter("select Pumpno,Pumplocation,Pumptype,recordactive from pumpRooms", Conn)
ada1.Fill(ds1)
DataGridView1.DataSource = ds1.Tables(0)
End Sub