主题：不能写入全局代码

Public cmd As new sqlcommand
cmd. c o n n e c t i o n n a m e="1"

不能写入全局代码，请教。

cmd.  c o n n e c t i o n n a m e=1"

一楼的第行贴不完整。

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

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

先谢谢了，我试试。

Public cmd As new sqlcommand
Public ld As Date
Public Function 数据源()
'-----定义语句
Dim cmd2 As New SQLCommand
'-----设置数据源
cmd2.C
'设置语句
cmd2.CommandText = "Select GetDate()" '获取服务器时间
ld= cmd2.ExecuteScalar '返回服务器时间
ld=#12/31/2012#
End Function

messagebox.show(ld)  在命令窗口执行结果不是 12/31/2012

 不懂你为什么这样写

Public cmd As new sqlcommand
Public ld As Date
Public s As String
Public Function 数据源()
'-----定义语句
'Dim cmd2 As New SQLCommand
'-----设置数据源
cmd.C
'设置语句
cmd.CommandText = "Select GetDate()" '获取服务器时间
ld= cmd.ExecuteScalar '返回服务器时间
ld=#12/31/2012#
s="12"
End Function

在命令窗口执行messagebox.show(s)，说s没有定义。   s 应该是变量吧？

那你不在命令窗口执行咯，你在某个按钮的事件下面执行一下看看，命令窗口有可能无法调用全局的变量也说不定。它好像只是一个测试窗口。

我是想把常用的代码写在全局代码里，不用每次都重复写这个代码。你有什么其他的方法吗？

Public Function SQL_GetTime(byval 数据源 As String) As Date

这个代码是什么意思？