Visual Basic - Ingreso de valores a Access

Hola a todos.
Tengo problemas con el ingreso de datos desde visual basic a access que no se como solucionar. Les adjunto el codigo que tengo para que ustedes me digan que puede ser el problema. Ademas les mando el error que me arroja el programa.

Sub conex()
Dim x As DAO.Database
Dim y As DAO.TableDef
Dim z As DAO.Field
Dim w As DAO.Recordset
Dim n%

Set x = CreateDatabase("C:/Documents and Settings/alumno18/Escritorio/prueba.mdb", dbLangGeneral)

Set y = x.CreateTableDef("prueba")
Set z = y.CreateField("tpo_actual")
y.Fields.Append z

Set z = y.CreateField("cinco_min")
y.Fields.Append z

Set z = y.CreateField("diez_min")
y.Fields.Append z

Set z = y.CreateField("quince_min")
y.Fields.Append z

Set z = y.CreateField("veinte_min")
y.Fields.Append z

Set w = x.OpenRecordset("Select * From prueba", dbOpenDynaset, dbOptimistic)

For n = 1 To MSFlexGrid.Rows - 1
With MSFlexGrid
w.AddNew
w("tpo_actual") = .TextMatrix(n, 1)
w("cinco_min") = .TextMatrix(n, 2)
w("diez_min") = .TextMatrix(n, 3)
w("quince_min") = .TextMatrix(n, 4)
w("veinte_min") = .TextMatrix(n, 5)
w.Update
End With
Next

End Sub

el error lo marca en w.AddNew y es el siguiente:

Run-time error '91': Object variable or With block variable not set

Muchas gracias de antemano.