Fjerne data1

Private Sub Form_Load()
  Data1.Caption = ""
End Sub

Nej.. Det er navnet.. Men den skal ikke være der.. Men man skal stadig kunne skifte mellem kontaktpersonerne og oprette

Data1.Visible = False

så mener jo du kan bruge:

Data1.Recordset
    ' .FindFirst
    ' .FindLast
    ' .FindNext
    ' .FindPrevious

nej det er dem her du skal bruge:

Data1.Recordset
    '.MoveFirst
    '.MoveLast
    '.MoveNext
    '.MovePrevious

du laver det sådan:

Private Sub cmdFirst_Click() ' <- CommandButton
  Data1.Recordset.MoveFirst
End Sub

Private Sub cmdLast_Click() ' <- CommandButton
  Data1.Recordset.MoveLast
End Sub

Private Sub cmdNext_Click() ' <- CommandButton
  With Data1.Recordset
      If Not .EOF Then
        .MoveNext
      End If
  End With
End Sub

Private Sub cmdPrevious_Click() ' <- CommandButton
  With Data1.Recordset
      If Not .BOF Then
        .MovePrevious
      End If
  End With
End Sub

Private Sub Data1_Reposition() ' <- Data
  With Data1.Recordset
      cmdNext.Enabled = Not .EOF
      cmdPrevious.Enabled = Not .BOF
      Me.Caption = .AbsolutePosition
  End With
End Sub

Skal jeg så stadig lave en data1?

JA..
du skal bare sette Visible til False på Data1

Ok.. Prøver lige..

Virkede