主题：不能写入全局代码

Public  dt As Date 

Public Function GetDate(ByVal Sale As String) As Date

Dim con As Connection = Connections(Sale)

If con.SourceType = 1 Then

    dt = Date.Today()

Else If con.SourceType = 2 

    Dim cmd As New SQLCommand

    cmd.ConnectionName = Sale

    cmd.CommandText = "Select GetDate()"

    dt = cmd.ExecuteScalar()

    dt = dt.Date

End If

Return dt

End Function

你测试一下这个