Visual Basic - Otra para expertos

Adjunto un trozo muy pequeño de código y ahora esplico el problema.
Tengo una base de datos, dentro de ella hay un registro de DIRECCION pero esa dirección lleva el numero del portal separado por una coma (,)quiero coger el campo para imprimirlo en un informe pero que solo me coja hasta la coma lo que hay despues de ella que no lo coja

Dim r As Recordset
Dim SQL As String

SQL = "Select * from Pisos
Set r = VarGlobal.Db.OpenRecordset(SQL, dbOpenSnapshot)

vale parece sencillo pero no tengo todavia la solución, gracias por vuestra ayuda.

con un ciclo for next recorre toda la cadena del campo hasta que encuentres la coma.
luego formas una nueva variable con el nombre recortado hasta la coma.

CadenaNueva=left(cadenaconcoma, instr(1, cadenaconcoma, ","))

chau.

Estimado Sr. Martin.

Le agradezco su ayuda pero la verdad ante sus esplicaciones me quedo igual, ya que no soy experto en programación y preciso que se me esplique las cosas con detalle, para poder aprender. Estoy rodeado de libros que hablan de estos temas pero su técnicismo me inpide sacar las conclusiones y a veces las cosas sencillas se vuelven complicadas justamente por desconocimiento.
Le agradeceria que si desea ayudarme sobre el código que adjunte en mi pregunta me indique como hacer la modificación para que me funcione.
No obstante le quedo muy agradecido por su inestimable ayuda. Gracias.
Un amigo.