主题：不能写入全局代码

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 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

这个代码是什么意思？