Private Sub Befehl130_Click()
Dim Cn As New ADODB.Connection
	Cn.CursorLocation = adUseClient
	Cn.Mode = adModeShareDenyNone
	Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
	Cn.ConnectionString = "Data Source=i:\LARIX\einw00.mdb"
	Cn.Open
 
 
	Dim Daten As New ADODB.Recordset
    	Daten.CursorType = adOpenKeyset
    	Daten.LockType = adLockPessimistic
	Dim Daten1 As New ADODB.Recordset
    	Daten1.CursorLocation = adOpenKeyset
    	Daten1.LockType = adLockPessimistic
 
 
	Dim Word As Object
	Set Word = CreateObject("word.application")
	With Word
	.Visible = True
	.WindowState = 1
	.Documents.Add ("C:\Dokumente und" & _
  "Einstellungen\Lucas.EWGZERMATT\Desktop\Stundungen.dotx")
	End With
 
 
	'Select Befehl, welche Daten wollen wir? Syntax oben beschrieben'
	Daten.Open "SELECT LARIX_DB_VIEW_POSTE.NO_POSTE," & _
  "LARIX_DB_VIEW_POSTE.DT_VALEUR, LARIX_DB_VIEW_POSTE.NO_RUBRIQUE," & _
  "LARIX_DB_VIEW_POSTE.NO_DEBITEUR, LARIX_DB_VIEW_POSTE.PRENOM," & _
  "LARIX_DB_VIEW_POSTE.NOM, LARIX_DB_VIEW_POSTE.ANNEE_PIECE," & _
  "LARIX_DB_VIEW_POSTE.NO_PIECE, LARIX_DB_VIEW_POSTE.NO_PIECE_COMPL " & _
            	"FROM LARIX_DB_STD_KOPF INNER JOIN LARIX_DB_VIEW_POSTE ON" & _
            "LARIX_DB_STD_KOPF.NO_POSTE = LARIX_DB_VIEW_POSTE.NO_POSTE " & _
            	"GROUP BY LARIX_DB_VIEW_POSTE.DT_VALEUR," & _
            "LARIX_DB_VIEW_POSTE.NO_RUBRIQUE, LARIX_DB_VIEW_POSTE.NO_DEBITEUR," & _
            "LARIX_DB_VIEW_POSTE.PRENOM, LARIX_DB_VIEW_POSTE.NOM," & _
            "LARIX_DB_VIEW_POSTE.ANNEE_PIECE, LARIX_DB_VIEW_POSTE.NO_PIECE," & _
            "LARIX_DB_VIEW_POSTE.NO_PIECE_COMPL, LARIX_DB_STD_KOPF.END_DAT," & _
            "LARIX_DB_VIEW_POSTE.ANNEE_PIECE, LARIX_DB_VIEW_POSTE.NO_PIECE " & _
            	"ORDER BY LARIX_DB_VIEW_POSTE.NO_RUBRIQUE," & _
            "LARIX_DB_STD_KOPF.END_DAT, LARIX_DB_VIEW_POSTE.ANNEE_PIECE," & _
            "LARIX_DB_VIEW_POSTE.NO_PIECE", Cn       	
 
	Daten1.Open "SELECT LARIX_DB_STD_POS.NO_POSTE, LARIX_DB_STD_POS.DT_FAELLIG " & _
            	"FROM LARIX_DB_STD_POS", Cn
 
	Cn.Close
 
End Sub