Jag håller på att förska skriva ut en databas men det det går inte, jag har använt koden

Private Sub CmdExport_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.Open "select * From tblpersoner Order by fieldFörnamn ASC", cn, adOpenDynamic

x = 1
With rs
.MoveFirst
Do While Not .EOF
ExcelSheet.Cells(x, 1).Value = Data1.Recordset.Fields("RegFörnamn")
ExcelSheet.Cells(x, 2).Value = Data1.Recordset.Fields("RegEfternamn")
x = x + 1
Loop
End With
End Sub

men den hakar sig på
rs.Open "select * From tblpersoner Order by fieldFörnamn ASC", cn, adOpenDynamic
och det står "The application requsted an operation on an object with reference to a closed or invalid Connection object".

vet inte vad det betyder nån som vet?

/simon

Du måste öppna en connection mot databasen före du försöker öppna ditt recordset.
cn.open 'Connectionstring'
rs.open Select * ....

/Niklas