Const strConn As String = "Driver={Microsoft Text Driver (*.txt;" & _ 
"*.csv)};DefaultDir=G:\Vorlagen\" 
Const strPfad As String = "G:\Vorlagen\"

Const MasterDatei As String = "MITARBEITER.txt"

strUsername = Environ("Username")

cn.Open strConn

Set rs = cn.Execute("Select * from " & KonvertDatei & " WHERE" & _
  "Username='" & _ 
strUsername & "'")

Dim strUsername As String 
Dim strName As String 
Dim strObjekt As String 
Dim strStraße As String 
Dim strOrt As String 
Dim strRegTyp As String 
Dim strBand As String 
Dim strBemerkung As String

Dim strNachname As String
Dim strVorname As String
Dim strEMail As String
Dim strTelefon As String
Dim strTelefax As String

strNachname=rs.Fields("Nachname")
strVorname=rs.Fields("Vorname")
strEMail=rs.Fields("eMail")
strTelefon=rs.Fields("Telefon")
strTelefax=rs.Fields("Telefax")

Options.ReplaceSelection = True 
ActiveDocument.Bookmarks("Text4").Select 
Selection.TypeText Text:="Absender:" & vbCrLf & _
strNachname & ", " & strVorname & vbCrLf & _
"Straße" & vbCrLf & _ 
"Phone: " & strTelefon & vbCrLf & _ 
"Telefax: " & strTelefax & vbCrLf & _ 
" E -Mail: " & strEMail

EALA FREYA FRESENA