【首发答案】 VB6 中才有Set，VB.net中没有了
成都创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站建设、成都网站制作、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的柳城网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
直接 a = New a 即可。
^_^ 给分撒～
cnum 没有声明dim的声明一下,
你必须明白，如果你用 vb.net 做开发就别再用 ado 而改用ado.net
用oledb.oldbconnection代替 adodb.connection
如果你坚持在 .net 中用ado，请添加引用，引用 com 中的 ado
setfocus 不是.net 用法 改成 focus
unload改成 close
或者你可以用vb.net 的自带工具，升级vb6的代码。
看样子应该是设置和读取某个物件的属性。。而这个属性就是sslStatus．Text的值。
在这里Get是将sslStatus.Text这个结果读取出来；而Set(ByVal value As String)是将value这个参数值赋值给sslStatus.Text,也即是让这个名为sslStatus的文本框显示value这个值。
Set 语句 将对象引用赋给变量或属性。 语法 Set 语句中使用 New 关键字，那么实际上就会新建一个该对象的实例。
Set objA=objAA.getObjOfA()
Or
Set objA = new ObjOfA()
这种写法在.net
2.0后才出现的，目的是为了减轻程序员的工作量，编译器会自动为你补充完整，如：
public
string
name{get;set;}
编译器自动生成（可能会更负责更完善）：
private
string
name;
public
string
Name
{
get
{
return
name;
}
set
{
name=
value;
}
}
这种写法在一般时候很好，但是有一种情况你不得不放弃这种写法，那就是你要在里面进行校验的时候，比如set中有运算或者校验之类的，get中有转换等等，这种情况下，你就必须老老实实的写个完整的才可以。
