Select fld From (
Select 1 Flag,'All' Fld Union All Select 2 Flag, KindsColumn fld 
From ProductsTable ) a 
Order by Flag,Fld

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim TmpStr As String
TmpStr = "0123456789."
If KeyAscii = 8 Then Exit Sub
If InStr(TmpStr, Chr(KeyAscii)) = 0 Then KeyAscii = 0
Dim Tmp As Integer
Tmp = InStr(Text1.Text, ".")
If Tmp > 0 And KeyAscii = 46 Then KeyAscii = 0
End Sub

SELECT REPLICATE('0', 4 - len(Code)) + Convert(nvarchar(20),Code)  AS TempCol FROM Students

        Dim Dst As New DataTable
        StrSQL = "SELECT DispName,ID From Table"
        Dap = New OleDb.OleDbDataAdapter(StrSQL, Con)
        Dap.Fill(Dst)
            With ComboBox1
            .DataSource = Dst
            .DisplayMember = DispName
            .ValueMember = ID
        End With

Public Sub Saving(ByVal Table As String, ByVal Fields As String, ByVal Values As String)
        Dim DsS As New DataSet
        Dim cmd1 As New OleDbCommand(" Select * From " & Table & " Where 1 =2 ", Con)
        'Dim cmd1 As New OleDbCommand(" Insert into Users Select * From Users Where 1=2 ",

Dim RsSave as new adodb.recordset
RsSave.open "Select * From Table Where 1=2 ",Con,CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic

con.Begintrans

RsSave.AddNew
RsSave.Fields(0).Value = textbox1.text
RsSave.Fields(1).Value = textbox2.text
RsSave.Fields(2).Value

Select ip_address,Data_rec From (select ip_address,sum(data_received)  as Data_rec from log group by ip_address,data_received) as Dt Order By Data_rec  Desc