Dim ComMandSeLectSHAPE As New OleDbCommand("SELECT SHAPE FROM [Sheet1$] WHERE OP_CODE_2 = 'TF' AND INPUT_FLAG = '0' GROUP BY SHAPE ", _
CpkConNecTion)
Dim ComMandSeLectSHAPESecound As New OleDbCommand("SELECT SHAPE FROM [Sheet2$] WHERE OP_CODE_2 = 'TF' AND INPUT_FLAG = '0' GROUP BY SHAPE", _
CpkConNecTion)
'*******************************
Dim ReaderSHAPE As OleDbDataReader = ComMandSeLectSHAPE.ExecuteReader()
Dim ReaderSHAPESecound As OleDbDataReader = ComMandSeLectSHAPESecound.ExecuteReader()
'*******************************
Dim ReadSHAPE As String = ""
Dim ReadSHAPESecound As String = ""
'*******************************
While (ReaderSHAPE.Read())
ReadSHAPE = ReaderSHAPE("SHAPE")
CmdShape.Items.Add(ReadShape)
While ReaderSHAPESecound.Read()
ReadSHAPESecound = ReaderSHAPESecound("SHAPE")
CmdShape.Items.Add(ReadSHAPESecound)
End While
End While
Load balance : Server 00
