SELECT * FROM zona1

SELECT * FROM zona2

SELECT * FROM zona1
UNION
SELECT * FROM zona2

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim conn As New OleDb.OleDbConnection(My.Settings.Koneksi)
    conn.Open()
    Dim adp As New OleDb.OleDbDataAdapter("Select * From Customers", conn)
    Dim dt As New DataTable
    adp.Fill(dt)
    Me.datagrid.DataSource = dt
End Sub

   Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click
        Dim sfd As New SaveFileDialog
        sfd.Filter = "Microsoft Excel File (*.xls)|*.xls"
        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            If Me.datagrid.Rows.Count > 0 Then
                Try
                    Dim dt As New DataTable()
                    For Each col As DataGridViewColumn In Me.datagrid.Columns
                        dt.Columns.Add(col.HeaderText, col.ValueType)
                    Next
                    Dim count As Integer = 0
                    For Each row As DataGridViewRow In Me.datagrid.Rows
                        If count < Me.datagrid.Rows.Count - 1 Then
                            dt.Rows.Add()
                            For Each cell As DataGridViewCell In row.Cells
                                dt.Rows(dt.Rows.Count - 1)(cell.ColumnIndex) = cell.Value.ToString()
                            Next
                        End If
                        count += 1
                    Next

                    Dim wr As New IO.StreamWriter(sfd.FileName)

                    For i As Integer = 0 To dt.Columns.Count - 1
                        wr.Write(dt.Columns(i).ToString().ToUpper() & vbTab)
                    Next
                    wr.WriteLine()

                    For i As Integer = 0 To (dt.Rows.Count) - 1
                        For j As Integer = 0 To dt.Columns.Count - 1
                            If dt.Rows(i)(j) IsNot Nothing Then
                                wr.Write(Convert.ToString(dt.Rows(i)(j)) & vbTab)
                            Else
                                wr.Write(vbTab)
                            End If
                        Next
                        wr.WriteLine()
                    Next
                    wr.Close()
                    MsgBox("Data berhasil diexport ke excel!", MsgBoxStyle.Information, "Information")
                Catch ex As Exception
                    Throw ex
                End Try
            End If
        End If
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim userTables As DataTable = Nothing
    Dim conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection()
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Northwind.mdb"
    Dim restrictions() As String = New String(3) {}
    restrictions(3) = "Table"
    conn.Open()
    userTables = conn.GetSchema("Tables", restrictions)
    conn.Close()
    Me.cboTabel.Items.Clear()
    
    Dim i As Integer
    For i = 0 To userTables.Rows.Count - 1 Step i + 1
        Me.cboTabel.Items.Add(userTables.Rows(i)(2).ToString())
    Next
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.lblName.Text = JCS.OSVersionInfo.Name
        Me.lblEdition.Text = JCS.OSVersionInfo.Edition
        Me.lblServicePack.Text = JCS.OSVersionInfo.ServicePack
        Me.lblVersion.Text = JCS.OSVersionInfo.VersionString
        Me.lblProcessorBits.Text = String.Format("{0}", JCS.OSVersionInfo.ProcessorBits)
        Me.lblOSBits.Text = String.Format("{0}", JCS.OSVersionInfo.OSBits)
        Me.lblProgramBits.Text = String.Format("{0}", JCS.OSVersionInfo.ProgramBits)
End Sub

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.Close()
End Sub
End Sub

     Public Function Encrypt(ByVal PlainText As String, ByVal Key As Integer) As String
        Dim PlainChar() As Char = PlainText.ToCharArray()
        Dim Ascii(PlainChar.Length) As Integer

        For Count As Integer = 0 To PlainChar.Length - 1
            Ascii(Count) = Asc(PlainChar(Count))
            If Ascii(Count) >= 65 And Ascii(Count) <= 90 Then
                Ascii(Count) = ((Ascii(Count) - 65 + Key) Mod 26) + 65
            ElseIf Ascii(Count) >= 97 And Ascii(Count) <= 122 Then
                Ascii(Count) = ((Ascii(Count) - 97 + Key) Mod 26) + 97
            End If
            PlainChar(Count) = Chr(Ascii(Count))
        Next

        Return PlainChar
    End Function

     Public Function Decrypt(ByVal CipherText As String, ByVal Key As Integer) As String
        Dim CipherChar() As Char = CipherText.ToCharArray()
        Dim Ascii(CipherChar.Length) As Integer

        For Count As Integer = 0 To CipherChar.Length - 1
            Ascii(Count) = Asc(CipherChar(Count))
            If Ascii(Count) >= 65 And Ascii(Count) <= 90 Then
                Ascii(Count) = ((Ascii(Count) - 65 - (Key Mod 26) + 26)) Mod 26 + 65
            ElseIf Ascii(Count) >= 97 And Ascii(Count) <= 122 Then
                Ascii(Count) = (((Ascii(Count) - 97 - (Key Mod 26) + 26)) Mod 26) + 97
            End If
            CipherChar(Count) = Chr(Ascii(Count))
        Next

        Return CipherChar
    End Function

    Private Sub btnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click
        If txtTeks.Text.Trim = "" Or txtKey.Text.Trim = "" Then
            MessageBox.Show("Masukkan teks dan kunci untuk dienkripsi!", "Perhatian", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            Try
                txtHasil.Text = Encrypt(txtTeks.Text.Trim, txtKey.Text.Trim)
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub

    Private Sub btnDecrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDecrypt.Click
        If txtHasil.Text.Trim = "" Or txtKey.Text.Trim = "" Then
            MessageBox.Show("Masukkan teks dan kunci untuk dideskripsi!", "Perhatian", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            Try
                txtHasil.Text = Decrypt(txtTeks.Text.Trim, txtKey.Text.Trim)
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub

SELECT ProductName,UnitPrice,QuantityPerUnit,
REPLACE(QuantityPerUnit,'boxes','dus') AS Change
FROM [products] 
WHERE QuantityPerUnit like '%boxes%'

3. Buat sebuah SubRoutin dengan nama Pencarian, kemudian ketikkan listing berikut

Private Sub Pencarian()
  Dim CnnDb As New OleDbConnection(My.Settings.Koneksi)
  CnnDb.Open()

  Dim str As String = "SELECT Orders.OrderID, Orders.OrderDate,Customers.CompanyName," & _
  "Products.ProductName, [Order Details].UnitPrice, [Order Details].Quantity " & _
  "FROM Products INNER JOIN ((Customers INNER JOIN Orders " & _
  "ON Customers.CustomerID = Orders.CustomerID) INNER JOIN [Order Details] " & _
  "ON Orders.OrderID = [Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID " & _
  "WHERE (((Customers.CompanyName) Like '%" & Me.txtCari.Text &  "%'))"
  Dim adp As New OleDbDataAdapter(str, CnnDb)
  Dim dt As New DataTable
  adp.Fill(dt)
  Me.grid.DataSource = dt
End Sub

Private Sub txtCari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCari.TextChanged
   Me.Pencarian()
End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
   Me.txtCari.Text = ""
   Me.Pencarian()
End Sub