主题：不能写入全局代码

Public Function 数据源()
        '-----定义语句
        Dim cmd2 As New SQLCommand
        '-----设置数据源
        cmd2.C
        '设置语句
        cmd2.CommandText = "Select GetDate()" '获取服务器时间
         cmd2.ExecuteScalar '返回服务器时间
End Function

您好，我试一下，如果你不定义任何的函数或是过程，你直接写是无法编译的，但是你写在函数或过程里就可以了，不信你添加上面代码中的红色部分。