When i use this code i get error "Object Required"
Private Sub Command12_Click()
Dim cn As ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo errorhandler
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.Open ("select *...