mantener informacion en un text y en un combo

[inemart]

Private Sub CmbSucursal_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Trim(Me.CmbSucursal.Text) <> "" Then
Dim StrSuc As String
StrSuc = ValidaCombo(CmbSucursal, RsSucursal, "Codigo")
If StrSuc > 0 Then
strSQL = "Select * " & _
"From vtasclipper.dbo.vtaesp AS VE " & _
"Left Join BzrProcesos.dbo.Bzr_Rel_FacClientes As RC ON Rc.Cte_Clipper = VE.Cliente " & _
"Left Join BackOfficeCatalogos.dbo.CatClientes AS CatClientes ON RC.Cte_Bisoft = CatClientes.Codigo " & _
"Where folio ='" & TxtFolio & "' " & _
"AND Sucursal =" & StrSuc
RS.Open strSQL, Ocnn, adOpenDynamic, adLockOptimistic
If RS.RecordCount > 0 Then
Me.TxtCliente.Text = RS.Fields("Nombre")
SendKeys vbTab
Else
MsgBox ("Folio incorrecto")
TxtFolio.Text = ""
CmbSucursal = ""
TxtFolio.SetFocus
End If
Else
MsgBox "Sucursal no valida"
CmbSucursal = ""

End If
RS.Close
End If
End Sub

este es el codigo del combo que contiene una funcion que hice que se llama validacombo lo que hace el validacombo es ver que los datos que esten en el combo sean los correctos si los escribe el usuario y verificar si se encuetran en la base de datos en SQL:
espero que se entienda un poco mas gracias por sus aportaciones
,.,.,.,.,., s.a.l.u.d.o.s.,.,.,.,..,.,.