Mas datos al Datacombo

[netorres]

Hola quisiera saber si se puede poner en un data combo mas de un campo de la base de datos:

Esta es mi funcion:
Private Function listacliente2(apepat As String, apemat As String)
Dim Dir As String
Dir = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & tabla
Set VarConexion = New Connection
VarConexion.Open Dir, usr
Set Rs = New Recordset
cadena = "select cli_id,cli_nombre, cli_apepat, cli_apemat from cliente where cli_apepat= '" & apepat & "' and cli_apemat= '" & apemat & " '"
Rs.Open cadena, VarConexion, adOpenStatic, adLockOptimistic
Set dcomgenpedlistacli.RowSource = Rs
dcomgenpedlistacli.ListField = "cli_nombre"
dcomgenpedlistacli.BoundColumn = "cli_id"
End Function


Quisiera saber si :
dcomgenpedlistacli.ListField = "cli_nombre" en ves de esto puede ser algo asi:
dcomgenpedlistacli.ListField = "cli_nombre" & "cli_apepat" & "cli_apepat"
Pero no me deja que puedo hacer???