Private Sub btnGonder_Click()
    Dim db As DAO.Database
    Dim rs As Recordset
    Dim strSQL As String
    Dim Adi As String
    Dim Tel As String
    Dim TC As String
    Dim Bayii As String
    Dim Urunler As String
    Dim Fiyat As Double
    Dim Msg As String
   
    strSQL = "SELECT * FROM Tablo2 WHERE [ID_TABLO1]=" & Me.ID
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
   
    If (rs.EOF) Then
        rs.Close
        Set rs = Nothing
        Set db = Nothing
    Else
        Adi = Me.ADISOYADI
        TC = Me.TC
        Tel = Me.TELEFON
        Msg = "Adı Soyadı: " & Adi & vbCrLf
        Msg = Msg & "T.C No: " & TC & vbCrLf
        Msg = Msg & "Telefon: " & Tel & vbCrLf
        Msg = Msg & vbCrLf ' Boş bir satır ekleyebilirsiniz.
       
        ' Sütun başlıkları belirli bir uzunluğa sahip olacak şekilde hizalanır.
        Msg = Msg & "Bayii Adı" & Space(40 - Len("Bayii Adı")) & "Ürünler" & Space(30 - Len("Ürünler")) & "Fiyatı" & vbCrLf
        Msg = Msg & String(60, "_") & vbCrLf ' Alt çizgiyi ekleyebilirsiniz.
       
        While (Not (rs.EOF))
            Bayii = rs("BAYII")
            Urunler = rs("URUNLER")
            Fiyat = rs("FIYAT")
           
            ' Sütunlar belirli uzunluklara sahip olacak şekilde hizalanır.
            Msg = Msg & Bayii & Space(40 - Len(Bayii)) & Urunler & Space(20 - Len(Urunler)) & Format(Fiyat, "0.00") & vbCrLf
            rs.MoveNext
        Wend
        MsgBox Msg, vbInformation, "Mesaj İçeriği"
        rs.Close
        Set rs = Nothing
        Set db = Nothing
    End If
End Sub
boşukları kendin ayarlamaya çalış
umarım işinize yarar