sAnswer = InputBox("Geef een nieuwe source op aub...", "New source", sDefault)

 If Not sAnswer = vbNullString Then
        'Bestaande recordset sluiten
        rs.Close
        'Source wijzigen
        rs.Source = sAnswer
        'Recordset opnieuw openen
        rs.Open
        
        DisplayCurrentRecord
    End If