Activar una alarma usando base de datos sql server y visual studio

Expertos .: Resulta que estoy intentando crear un agenda que al
guardar en una bd(sql) me muestre lo agendado en una determinada fecha y hora
con la que se guardo.
fuente en .net. Es el siguiente .:(TRABAJO EN
CAPAS)
Imports System.Data
Imports System.Data.SqlClient
Imports CapaEntidades
Imports CapaNegocios
Imports System.IO
Public Class FrmAgendas
' Instanciamientos ...
Dim ObjN As New CN_Agenda
Dim ObjE As New CE_Agenda
' ---------------------------------------------------------------------
Public Sub Muestra_y_Busca_Agenda()
Try
ObjE.Bits_Lista = Chk_Fechas.Checked
ObjE.fecha_1 = IIf(Chk_Fechas.Checked, DTP_Fecha1.Value, DBNull.Value)
ObjE.fecha_2 = IIf(Chk_Fechas.Checked, DTP_Fecha2.Value, DBNull.Value)
DGV_Alarma.DataSource = ObjN.Lista_y_Busca_Agendado_CN(ObjE)
DGV_Alarma.Columns("Código").Visible = False
DGV_Alarma.Columns("Recuerdo").Width = 200
DGV_Alarma.Columns("Fecha").Width = 80
DGV_Alarma.Columns("Tiempo").Width = 80
DGV_Alarma.Columns("Responsable").Width = 80
LblRegistradas.Text = DGV_Alarma.RowCount
Exit Sub
Catch ex As Exception
Exit Try
End Try
End Sub
' Load ...
Private Sub FrmAgendas_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Timer1.Start()
PanelFechas.Visible = False
ChkReprodMusic.Checked = True
TxtCodigo.Text = ObjN.Generar_Lote_CN ' Generacion de Código
BtnNuevo.Enabled = True
BtnGrabar.Enabled = False
BtnCancelar.Enabled = False
TxtEvento.Enabled = False
TxtResponsable.Enabled = False
' Muestra y Busca ..:
Muestra_y_Busca_Agenda()
AddHandler Chk_Fechas.CheckedChanged, AddressOf Muestra_y_Busca_Agenda
AddHandler DTP_Fecha1.ValueChanged, AddressOf Muestra_y_Busca_Agenda
AddHandler DTP_Fecha2.ValueChanged, AddressOf Muestra_y_Busca_Agenda
Timer2.Start() ' es opcional ...
End Sub
' Programación del Botón Nuwevo
Private Sub BtnNuevo_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnNuevo.Click
BtnGrabar.Enabled = True
BtnNuevo.Enabled = False
BtnCancelar.Enabled = True
TxtEvento.Enabled = True
TxtEvento.Focus()
TxtResponsable.Enabled = True
End Sub
' Timer1 ... Tiene lugar cuando ha transcurrido un tiempo especificado ..:
Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
DTP_Hora_Sistema.Text = TimeString '(Interval 100)
End Sub
' Boton Grabar
Private Sub BtnGrabar_Click_1(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnGrabar.Click
' Try
If TxtEvento.Text.Trim = "" Then
MsgBox("Ingrese el Asunto que desea recordar")
TxtEvento.SelectAll()
TxtEvento.Focus()
Exit Sub
End If
BtnNuevo.Enabled = False
Dim rpta As Integer = 0
rpta = MessageBox.Show("¿Está seguro de Guardar", "",
MessageBoxButtons.YesNo, MessageBoxIcon.Information)
If (rpta = 6) Then
ObjE.codigo = ObjN.Generar_Lote_CN()
ObjE.recuerdo = TxtEvento.Text
ObjE.fecha = Convert.ToDateTime(DTP_Add_Fecha.Text)
ObjE.tiempo = DTP_Add_Hora.Value.TimeOfDay
ObjE.responsable = TxtResponsable.Text
End If
Dim i As Integer = ObjN.Inserta_Agenda_CN(ObjE)
MessageBox.Show("Fecha .: " & ObjE.fecha & " - Hora .:
" & Convert.ToString(ObjE.tiempo))
'Hide()
Timer2.Start()
Muestra_y_Busca_Agenda()
End Sub
' Timer2 ... Tiene lugar cuando ha transcurrido un tiempo especificado ..:
Public Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer2.Tick
Busca_y_Muestra_Mensaje()
End Sub
Public Sub Arranca_Alarma()
' If ObjE.fecha = DTP_Fecha.Text And ObjE.tiempo = Alarma1.Value.TimeOfDay Then
If ChkReprodMusic.Checked = True Then
AxWindowsMediaPlayer1.URL = ComboBox1.SelectedItem
Else
My.Computer.Audio.Play("c:\windows\media\tada.wav")
End If
Exit Sub
End Sub
' Borrador ....
Public Sub Busca_y_Muestra_Mensaje()
ObjE.fecha = DateTime.Today
ObjE.tiempo = DTP_Hora_Sistema.Value.TimeOfDay
Dim DT As DataTable = ObjN.Muestra_mensaje_CN(ObjE) '''' ESTO ES EL MEOLLO
..... AYUDENME JEJEJE. :-)
If DT.Rows.Count <> 0 Then
'MsgBox("hola ")
FrmMensaje.Show()
Exit Sub
Timer2.Stop()
Else
Exit Sub
End If
End Sub
' Boton Open ...
Private Sub BtnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles BtnOpen.Click
OpenFileDialog1.ShowDialog()
End Sub
' OpenFileDialo1 ...
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
For Each track As String In OpenFileDialog1.FileNames
ComboBox1.Items.Add(track)
Next
End Sub
Private Sub ChkReprodMusic_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles ChkReprodMusic.CheckedChanged
If ChkReprodMusic.Checked = True Then
BtnOpen.Enabled = True
ComboBox1.Text = ""
ComboBox1.Enabled = True
AxWindowsMediaPlayer1.Visible = True
Else
ComboBox1.Text = "C:\windows\media\tada.wav"
BtnOpen.Enabled = False
ComboBox1.Enabled = False
AxWindowsMediaPlayer1.Visible = False
End If
End Sub
Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnCerrar.Click
Close()
End Sub
' Boton Cancelar
Private Sub BtnCancelar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnCancelar.Click
BtnGrabar.Enabled = False
BtnNuevo.Enabled = True
BtnCancelar.Enabled = False
End Sub
Private Sub Chk_Fechas_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Chk_Fechas.CheckedChanged
DTP_Fecha1.Enabled = Chk_Fechas.Checked
DTP_Fecha2.Enabled = Chk_Fechas.Checked
If Chk_Fechas.Checked = True Then
ObjE.Bits_Lista = 1
PanelFechas.Visible = True
DTP_Fecha1.Visible = True
DTP_Fecha2.Visible = True
ElseIf Chk_Fechas.Checked = False Then
ObjE.Bits_Lista = 0
PanelFechas.Visible = False
DTP_Fecha1.Value = DateTime.Now
DTP_Fecha2.Value = DateTime.Now
End If
End Sub
End Class
Ojala
algún experto pueda darme luces para continuar. De antemano gracias