Выборка (продолжение темы)

Доброго времени суток.

В продолжение http://www.sql.ru/forum/actualthread.aspx?tid=713025

Всё получилось замечательно.
Выдается мобильный:4954255676;домашний:4957654764 и т.д. хотя в таблице телефоны в поле телефоны вводятся по маске "8 ("000") "000\-00\-00 .

Но как подцепить формат, что бы выдавалось мобильный:8(495)425-56-76;домашний:8(495)765-47-64 не въеду

И еще я забыл, что в таблице Телефоны иеется поле Добавычный как его вставить в

Public Function FieldToLine(ID As Long) As String
Dim Adors As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT (T3.[Тип телефона] + ':') & T2.Телефон " & _
"FROM T3 INNER JOIN T2 ON T3.[id тип телефона] = T2.[Тип телефона] " & _
"WHERE (T2.[id ФИО]=" & CStr(ID) & ")"
Adors.Open strSQL, CurrentProject.Connection, , , adCmdText
If Not Adors.EOF Then FieldToLine = Adors.GetString(, , , ";")
Adors.Close
If Len(FieldToLine) > 0 Then FieldToLine = Left$(FieldToLine, Len(FieldToLine) - 1)
End Function

Помогите плиз.

автор

... хотя в таблице телефоны в поле телефоны вводятся по маске "8 ("000") "000\-00\-00

это - не аргумент


так попробуйте

Public Function FieldToLine(ID As Long) As String
Dim Adors As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT (T3.[Тип телефона] + ':') & Format(T2.Телефон, '8(000)000\-00\-00') & (' ' + T2.Добавычный) " & _
"FROM T3 INNER JOIN T2 ON T3.[id тип телефона] = T2.[Тип телефона] " & _
"WHERE (T2.[id ФИО]=" & CStr(ID) & ")"
Adors.Open strSQL, CurrentProject.Connection, , , adCmdText
If Not Adors.EOF Then FieldToLine = Adors.GetString(, , , ";")
Adors.Close
If Len(FieldToLine) > 0 Then FieldToLine = Left$(FieldToLine, Len(FieldToLine) - 1)
End Function

Всё получилось и я въехал.
Огромная благодарность Ё.