Hej, får fram detta felmeddelande när jag kör funktionen andra gången

KOD:
Function smsLista()
On Error GoTo Err_smsLista

'Tar fram alla sms som inte har blivit skickade
If RSOpen = True Then
objRSSMS.Close
RSOpen = False
End If

SQLSMS = "SELECT kunder.namn, sms.smstext, sms.smsnr, sms.datum FROM kunder INNER JOIN sms ON kunder.id = sms.user WHERE (((sms.skickat)=False)) ORDER BY sms.datum DESC"
objRSSMS.CursorLocation = adUseClient
DataGrid.AllowUpdate = True
objRSSMS.Open SQLSMS, objConn, adOpenStatic
RSOpen = True

Set DataGrid.DataSource = objRSSMS

Exit_smsLista:
Exit Function
Err_smsLista:
MsgBox "Felnummer=" & Err.Number & vbCrLf & _
"Orsak:" & Err.Description & vbCrLf & _
"Modul:" & Me.Name & "!Form_Unload"
GoTo Exit_smsLista
End Function