Dim Db As DAO.Database
Dim rs As DAO.Recordset
Dim aktKTR As String
Dim strKTR As String
Dim strSQLGrund As String
Dim strSQLAufbau As String
 
    strKTR = InputBox("Suche nach ....  ?", "Suchen")
 
     strSQLGrund = "Select * From Stuecklisten Inner Join" & _
       "StuecklistenPositionen ON 
                Stuecklisten.STL_EDVNr = StuecklistenPositionen.STPS_STL_EDVNr"
     strSQLGrund = strSQLGrund & " Where Stuecklisten.STL_KTR = '" & strKTR & _
       "'"
 
     Set Db = CurrentDb()
     Set rs = Db.OpenRecordset(strSQLGrund, dbOpenSnapshot)
 
If rs.RecordCount > 0 Then
 
  Do While Not rs.EOF
      If rs.Fields("STL_AltNeu") = "alt" Then
 
          strSQLAufbau = strSQLGrund & " AND Where 
          StuecklistenPositionen.STPS_Position BETWEEN " & 1 & " And " & 150 &" & _
            """
 
      ElseIf rs.Fields("STL_AltNeu") = "neu" Then
 
          strSQLAufbau = strSQLGrund & " AND Where 
          StuecklistenPositionen.STPS_Position BETWEEN " & 1 & " And " & 75 & "
 
      End If
  Loop
 
End If
 
 
rs.Close
Set rs = Nothing
 
Db.Close
Set Db = Nothing
 
Me.RecordSource = strSQLAufbau