eğer kayıt sayısı = 0 ise kopyalanma hata verir aşağıdaki gibi if döngüsüyle sorun giderilebilir
If rs.RecordCount > 0 Then
Worksheets("ürüngiris").Range("a1").CopyFromRecordset rs
End If
If rs.RecordCount > 0 Then
Worksheets("ürüngiris").Range("a1").CopyFromRecordset rs
End If