Dim connString As New SqlConnection("packet size=4096;UID=sa;password=**;data source=192.168.9.111; persist security info=True;initial catalog=ACCA01;")
Dim dtAdapter As New SqlDataAdapter
connString.Open()
Dim SQL = "SELECT Docno,DocDate,Arcode,TotalAmount FROM BCARInvoice where paybillstatus='0' "
Dim Cmd = New SqlCommand(SQL, connString)
Dim dtreader = Cmd.ExecuteReader()
ComboBox1.DataSource = dtreader
Dim connString As New SqlConnection("packet size=4096;UID=sa;password=**;data source=192.168.9.111; persist security info=True;initial catalog=ACCA01;")
Dim SQL As String = "SELECT [Docno], [DocDate], [Arcode], [TotalAmount] FROM [BCARInvoice] WHERE [paybillstatus]='0'"
Dim Cmd As New SqlCommand(SQL, connString)
Dim dtAdapter As New SqlDataAdapter()
Dim dt As New DataTable()
dtAdapter.SelectCommand = Cmd
dtAdapter.Fill(dt)
ComboBox1.DataSource = dt
Load balance : Server 00
