系统时间如何与访问数据库时间匹配？

Question

我正在VB.NET中创建一个应用程序，它将在用户给定的时间播放一首歌。用户在ms-access数据库中存储歌曲位置和播放时间。当系统时间与数据库时间匹配时，歌曲将自动播放。我已经尝试过以下代码，但这不起作用。

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
        Me.Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
        Call Play(Format(Now, "Long Time"))
    End Sub

    Sub Play(ByVal tm As String)
        Dim ConnectionString As String

        ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=" & Application.StartupPath & "\VideoPlay.accdb;"

        Dim AccessConnection As New
System.Data.OleDb.OleDbConnection(ConnectionString)
        AccessConnection.Open()

        Dim da As New System.Data.OleDb.OleDbDataAdapter("SELECT *
FROM VideoPlay", AccessConnection)

        Dim ds As New DataSet

        da.Fill(ds, "VideoPlay")

        Dim dt As DataTable
        dt = ds.Tables("VideoPlay")

        Dim x As Integer

        If dt.Rows.Count > 0 Then
            For x = 0 To dt.Rows.Count - 1
                If tm = dt.Rows(x).Item("TM") Then
                    MsgBox("yes")
                End If
            Next
        End If

        AccessConnection.Close()
        da.Dispose()
        ds.Dispose()
        dt.Dispose()
        AccessConnection.Close()
    End Sub
End Class

任何人都可以告诉我代码中的错误或任何其他方式来比较系统时间和数据库时间。

提前感谢。