Até que fim, Achei meu problema.
Acontece que estva faltando criar a conexão que joga os valores para o banco de dados.
O erro se reportava no seguinte local:
Set banco = New ADODB.Recordset
cx.Conectar
banco.Open sql, cx.Conn
MsgBox "Programação Realizada com Sucesso.", vbInformation, "Cadastro de Programações"
Set banco = Nothing
cx.Desconectar
Postado : 03/10/2012 7:57 pm