Dim dyPlatz As Recordset
Dim Nummer As Integer
 
Set dyPlatz = DB.OpenRecordset("SELECT max(TeamNr) FROM tbl_Teams")
	If dyPlatz.RecordCount > 0 Then
       		Nummer = dyPlatz(0)
                Nummer = Nummer + 1
                dyTeams.Fields("TeamNr") = Nummer
                dyTeams.Fields("Platz") = Nummer
        Else
                dyTeams.Fields("TeamNr") = "1"
                dyTeams.Fields("TeamNr") = "1"
        End If