把这句DataGridView1.DataSource = ds3.Tables("课程权重")改成DataGridView1.DataSource = ds3.Tables[0]试试
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名与空间、虚拟主机、营销软件、网站建设、罗江网站维护、网站推广。
OA的构架最好是B/S的。。。VB只能构建CS结构的。。就是要用还要安装客户端，维护也不方便。ASP/ASP.net/JSP等构架出的BS结构系统维护方便只要在服务端维护就可，而且无需客户端软件，只要客户机能连接网络使用浏览器就可以使用。
VB5时代曾经有个外国公司开发了一款VB+DirectX的三维游戏。至今国内到还能见到一些人在用vb开发3d游戏，但很少有公司或者工作室以商业目的去用vb开发了。
至于vb为主开发的大型软件有很多，尤其vb6时代很多财务、ERP、OA、教育、会议系统等大型应用软件都是vb开发的。快速应用型开发一直是VB的强项。自从dotNet平台出现，vb.net更是跨入高性能、更强大的平台，不过由于出现了新兴语言C#，国内很多人追新追C类型的语法。事实上在国外VB做大型项目的企业是非常多的，国内搞很多东西都有较为偏激的潮流。事实上没有不好的语言，只有不好的程序员，就像画家不是因为笔的差别而画不出好画一样。
是你的思路一开始就偏了，导致后面不好处理！获取目录下的文件列表，有3种方法，其实都差不多，只是可能后期的处理需求不同用不同的类来实现。
第一种方法：
'读取D:\Temp目录下所有文件完整路径名称
Dim pathArray As String() = IO.Directory.GetFiles("D:\Temp")
'历遍文件完整路径
For Each path As String In pathArray
'获取完整路径下的文件名称，添加到ListBox1
ListBox1.Items.Add(IO.Path.GetFileName(path))
Next
第二种方法：
'读取D:\Temp目录下所有文件完整路径名称
Dim pathArray As String() = IO.Directory.GetFiles("D:\Temp")
'历遍文件完整路径
For Each path As String In pathArray
'根据文件完整路径新建FileInfo文件信息对象
Dim info As New IO.FileInfo(path)
'获取文件名称，添加到ListBox1
ListBox1.Items.Add(info.Name)
Next
第三种方法：
'读取D:\Temp目录下所有文件完整路径名称
Dim pathArray As String() = IO.Directory.GetFiles("D:\Temp")
'历遍文件完整路径
For Each path As String In pathArray
'根据文件完整路径新建DirectoryInfo目录信息对象
Dim info As New IO.DirectoryInfo(path)
'获取文件名称，添加到ListBox1
ListBox1.Items.Add(info.Name)
Next
普通应用，第一种就可以。
用FolderBrowserDialog操作的话，把"D:\Temp"换成 FolderBrowserDialog.SelectedPath