Visual Basic - Error en la conexion con codigo de Dataenvironment

Hola agradeceria si me pudieran ayudar.. bueno estoy usando el sgte codigo para indicar la posicion de la base de datos en el disco

Private Sub DataEnvironment_Initialize()
With Dataresultados.Connection1
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";" & _
"Mode=ReadWrite;" & _
"Persist Security Info=False"
End With
Dataresultados.rsSEMANA.CursorType = adOpenDynamic
Dataresultados.rssemana.LockType = adLockOptimistic
End Sub

cuando quiero mostrar los datos no hay problema pero cuando quiero modificarlos me presenta un error en la linea:

Dataresultados.rssemana.Update
y tampoco funciona cuando quiero agregar datos recorset!empleado