Hi Bryan,

 I was able to get something working, though probably not the "best" solution:

 --------------------------------

Private Sub BuyerBGW_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BuyerBGW.RunWorkerCompleted

        Dim dt As DataTable = CType(e.Result, DataTable)

        If Not IsNothing(dt) Then
            ddBuyer.BeginUpdate()
            ddBuyer.DataSource = dt
            ddBuyer.ValueMember = "Company_id"
            ddBuyer.DisplayMember = "Company_tx"
            ddBuyer.DisplayLayout.Bands(0).Columns("Company_id").Hidden = True
            ddBuyer.DisplayLayout.Bands(0).Columns("Company_tx").Header.Caption = "Buyer"
            ddBuyer.EndUpdate()
        End If

        'Find item in dropdownbox
        If (ddBuyer.Text.Length >= 1 And ddBuyer.Rows.Count >= 1) Then
            Dim found As Integer = -1
            Dim start As Integer = 0
            Dim find As String = ddBuyer.Text.ToUpper()
            Dim word As String = ""

            For start = 0 To ddBuyer.Rows.Count - 1
                word = ddBuyer.Rows(start).Cells("Company_tx").Value.ToString.ToUpper
                If (word.StartsWith(find)) Then
                    found = start
                    Exit For
                End If
            Next

            If found > -1 Then
                Dim currtext As String = ddBuyer.Text.ToString
                ddBuyer.SelectedRow = ddBuyer.Rows(found)

' fake the half text selection

                ddBuyer.Textbox.SelectionStart() = currtext.Length
            End If

        End If

    End Sub

-------------------

I'm not quite sure how to use the SendKeys method to a specific text box, though that sounds like a much easier solution.

Thanks,

Frank