Private Function searchunid()
        Dim con As New OleDb.OleDbConnection
        Dim ds As New DataSet
        Dim da As OleDb.OleDbDataAdapter
        Dim sql As String
        con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & _
          "adr.mdb"
        con.Open()
        sql = "SELECT * FROM ADR_UQ WHERE UN_Number = '" & TextBox1.Text & "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "adrdata")
        con.Close()
 
        Try
            DataGridView1.Rows.Add(ds.Tables("adrdata").Rows(0).Item( _
              2),ds.Tables("adrdata").Rows(0).Item(1),ds.Tables("adrdata").Rows( _
              0).Item(3))
 
        Catch
        End Try

DataGridView1.DataSource = oDs.Tables("adrdata")