string Apppath = System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase;
创新互联建站长期为近千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为贵溪企业提供专业的成都网站设计、网站制作、外贸营销网站建设，贵溪网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。
string path= new FileInfo(Apppath).DirectoryName;
vb Dim apppath, path As String
apppath = System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase
Dim f As System.IO.FileInfo
f = New System.IO.FileInfo(apppath)
path = f.DirectoryName
MsgBox(path)
' 关于VB.net { Visual Basic.NET是基于微软.NET Framework之上的面向对象的中间解释性语言，可以看作是Visual Basic在.Net Framework平台上的升级版本,增强了对面向对象的支持。但由于改动太大，导致VB.net对VB的向后兼容性不好，在业界引起不小的争议。 } ' VB.net与VB6.0的主要区别 { VB.Net需要在.Net Framework平台上才能执行，因此，大多的VB.Net程序员使用Visual Studio.Net作为IDE(integrated development environment-集成性的开发环境)开发.net应用程序。 VB6生成的应用程序不需要.Net Framework框架的支持。 因此，使用VB.net开发的应用程序只能在装有.Net Framework框架的系统中运行。 } ' VB.net与VB6.0的编程思想 { 网上流传的VB与VB.net差别被过分夸大。其实VB.net改善的只是完整的面向对象思想，90%语法与VB6.0保持一致。 抽象、封装、多态、继承是面向对象语言的四个基本属性。VB6.0不支持继承，而VB.NET则不然。所以，和C++一样，VB.NET也是完全面向对象的编程语言。 } ' VB.net与VB6.0的应用前景(个人观点 By 刺猬) ( 介于现在应用最为广泛WindowsXP操作系统没有预装.net framework的原因，许多VB程序员采用VB6.0开发应用程序；但现在不一样了，在未来，WindowsXP系统必将面临淘汰。继Vista以后，系统都预装了.net framework框架，由此看来，微软正在极力推崇使用.net技术。或许，.net应用程序的开发在未来会有很大的发展前景。 }
求采纳
1、vb.net 完全符合面向对象的编程语言抽象、封装、继承的四大特性，而vb不支持继承。
2、错误处理不同。
vb中只是On Error.....goto和On Errer Resume Next ，这些错误称为非结构化异常处理。而在vb.net中采用的结构化异常处理机制，try...catch....finally控制。
3、两者产生的窗体不同。
vb.net 允许创建不同类型的应用程序，例如，创建ASP.NET和ASP.NET Web 服务应用程序，还允许创建控制台应用程序和作为桌面服务运行的应用程序。但是vb 只能创建Windows窗体。
4、数据库访问的差别。
vb6.0是通过ADO（Active X Data Objext）来实现对数据库访问。而vb.net 是通过ADO.NET来访问数据库。
扩展资料
Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。
“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。
“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。
Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 。
参考资料：百度百科-Visual Basic
PDA.UI.PubLib.CEDBLayer()
问题可能在这里面有的组件没有引用进来，就是对象有问题，PDA可能就是空的