Código:
Private Sub LeerDatos()
Form2.Show 'hace que form2 se muestre
Form2.DataGrid1.Row = mes 'hace qe la variable mes sea igual a la fila
For i = 0 To 30 'hace que se lean los datos de la base de datos en la caja de texto tdia
Tdia(i).Text = Form2.DataGrid1.Columns(i + 2)
Next
Unload Form2 'hace que form2 se desconecte
End Sub
Private Sub EscribirDatos()
Form2.Show 'hace que form2 se muestre
Form2.DataGrid1.Row = mes 'hace qe la variable mes sea igual a la fila
For i = 0 To 30 'hace que se guarde los datos de tdia en la base de datos
Form2.DataGrid1.Columns(i + 2) = Tdia(i).Text
Next
Unload Form2 'hace que form2 se desconecte
End Sub
