Mi DBCombo pierde el foco

[netorres]

Nop no pasa nada sigue perdiendo el foco puse este codigo:

En el caso de selecionar el nombre del producto en especifico deberia quedar guardado en el combo1(2).boundtext el codigo del producto no el nombre.


AL ejecutar la consulta SQL yo hago la busqueda por rubro, grupo , y nombre especifico del producto.


Las dos primeras me las busca bien, pero cuando deseo buscar por algun producto en especifico pierdo el codigo de este y me queda el nombre que no me srive para la busqueda


Private Sub DBCombo1_GotFocus(Index As Integer)
Select Case Index
Case 1
strSql = "SELECT DISTINCT(in_Codgrp), gr_Codigo, gr_Nombre " & _
"FROM Grupos, MaestrodeInsumos " & _
"WHERE gr_Codigo = in_Codgrp"
If DBCombo1(0).BoundText > "" Then
strSql = strSql & " And in_Codrub = '" & DBCombo1(0).BoundText & "'"
End If
datGrupos.RecordSource = strSql
datGrupos.Refresh
DBCombo1(1).Refresh
Case 2
strSql = "SELECT DISTINCT(in_Codpro), in_Codlot, in_Nombre " & _
"FROM MaestrodeInsumos "
If DBCombo1(1).BoundText > "" Then
strSql = strSql & IIf(InStr(1, strSql, "WHERE") = 0, "WHERE ", " And ")
strSql = strSql & " in_Codgrp = '" & DBCombo1(1).BoundText & "'"
End If
strSql = strSql & " order by in_Nombre"
datMaestrodeInsumos5.RecordSource = strSql
datMaestrodeInsumos5.Refresh
DBCombo1(2).Refresh
End Select

End Sub