Ok, ya te entendí. Pero no es necesario que traigas todo a mayusculas desde la BD, sería mejor si lo haces por código, ya sea a minúscula(ToLower) o mayúscula(ToUpper). :
Código vb:
Ver originalPrivate Sub cbfamilia_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbfamilia.Leave
Dim a As String
a = cbfamilia.Text.ToLower()
If busqueda(a) Then
Else
MsgBox("Elija una familia valida")
cbfamilia.Focus()
End If
End Sub
Public Function busqueda(ByVal parametro As String) As Boolean
Dim result As Boolean = False
For i As Integer = 0 To cbfamilia.Items.Count - 1
If cbfamilia.Items(i).ToString.ToLower().Equals(parametro) Then
result = True
Exit For
End If
Next
Return result
End Function
Saludos!
.