Error con ADO

Hola bueno estoy trabajando con Ado es una aplicación grande en lo que se podría decir, mi problema es que cuando abro una ventana esta me funciona perfectamente y cada vez que entro sigue funcionando muy bien pero cuando abro otra ventana ya no puedo hacer nada en la primera que abrí (ni nuevo ni guardar) no se porque, pero todas la ventanas que ya he abierto no puedo trabajar otra vez... Tengo un Menu Principal en el que establezco la conexión de la sgt forma :
Set Cn = New ADODB.Connection
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Users\jose luis\Desktop\Proyectos\Proyecto Final\STO.mdb"
y en cada ventana tengo el siguiente codigo llamando a la tabla  de cada una:Set Recs =
Set Recs = New ADODB.Recordset
    Recs.ActiveConnection = Cn
    Recs.CursorType = adOpenKeyset
    Recs.LockType = adLockOptimistic
    Recs.CursorLocation = adUseClient
    Recs.Open "Select * From Productos"
    Set Frm_Pr_Con.DGP.DataSource = Recs
    Set CbDia_E.DataSource = Recs
    CbDia_E.DataField = "Dia_E"
    Set CbMes_E.DataSource = Recs
    CbMes_E.DataField = "Mes_E"
    Set CbAño_E.DataSource = Recs
    CbAño_E.DataField = "Año_E"
    Set CbDia_S.DataSource = Recs
    CbDia_S.DataField = "Dia_S"
    Set CbMes_S.DataSource = Recs
    CbMes_S.DataField = "Mes_S"
    Set CbAño_S.DataSource = Recs
    CbAño_S.DataField = "Año_S"
    Set TxtCodigo.DataSource = Recs
    TxtCodigo.DataField = "Codigo"
    Set TxtProducto.DataSource = Recs
    TxtProducto.DataField = "Producto"
    Set TxtCantidad.DataSource = Recs
    TxtCantidad.DataField = "Cantidad"
    Set TxtPrecio_U.DataSource = Recs
    TxtPrecio_U.DataField = "Precio_U"
    Set TxtDescripcion.DataSource = Recs
    TxtDescripcion.DataField = "Descripcion"
el Cn y el Recs estan declarados public en un Modulo....si me pueden ayudar le estare muy agradecido..... Gracias
nota: el problema solo esta cuando abro una ventana y luego otra ya en la primera no se puede trabajar.