Public Class frmChild1
Inherits System.Windows.Forms.Form
Dim sw As New Stopwatch()
Dim ProcessTime As Double
Dim _ToolStripStatusLabel As New ToolStripStatusLabel()
Private _x As String
Dim conn As OleDbConnection
Dim cmd As OleDbCommand
Private _dataset As DataSet
Private _conn As OleDbConnection
Private _cmd As OleDbCommand
Private _adapter As OleDbDataAdapter
Private Sub frmChild1_Load() Handles Me.Load
Dim conStr As String = " Data Source=illusion-f8db9b;"
conStr &= "Integrated Security=True;Database=GAFBiz;"
conStr &= "Persist Security Info=True"
Dim conn As New SqlConnection(conStr)
conn.Open()
Dim sql As String = "select* FROM Patient"
Dim cmd As New SqlCommand(sql, conn)
Dim adapter As New SqlDataAdapter(cmd)
Dim data As New DataSet()
adapter.Fill(data, "Patientshow")..
Load balance : Server 05
