确实如xjnzhidao 讲的，很可能你没实例化,模块中的代码你不调用也是不执行的，尤其是写到模缺戚块里面的函数或者过程伏卜陵。一个很简单的办法，就是在你模块代码中声明数据库库读取的地方设置一个断点，然后调试程序（把窗体调用该代码部分先注释掉），看看是否执行到了断点，如果没执弊瞎行就说明根本没执行模块
黄浦网站建设公司创新互联建站,黄浦网站设计制作，有大型网站制作公司丰富经验。已为黄浦上千提供企业网站建设服务。企业网站搭建\外贸营销网站建设要多少钱，请找那个售后服务好的黄浦做网站的公司定做！
每个 Visual Basic 应用程序均必须包含一个称为VB.NET Main过程。该过程为应用程序的起始点并为应用程序提供总体控制。.NET Framework 在已加载应用程序并准备将控制传递给它时，将调用 Main 过程。除非您要创建 Windows 窗体应用程序，否则就必须为自运行的应用程序编写 Main 过程。
Main 中包含首先运行的代码。在 Main 中，可以确定在程序启动时首先加载的窗体，确定系统上是否已在运行您的应用程序副本，为应用程序建立一组变量，或者打开应用程序需要的数据库。
VB.NET Main过程的要求
独立运行的文件（扩展名通常为 .exe）必须包含 Main 过程。库（例如，扩展名为 .dll）不独立运行，因而不需要 Main 过程。可以创建的不同类型的项目的要求如下：
控制台应用程序可以独立运行，而且您必须提供至少一个 Main 过程。
Windows 窗体应用程序可以独立运行。但是，Visual Basic 编译器会在此类应用程序中自动滚闭纳生成一个 Main 过程，因而您不需要编写此过程。
类库不需要 Main 过程。这些类库包括 Windows 控件库和 Web 控件库。作为类库部署 Web 应用程序。
声明VB.NET Main过程
有四种方法可以声明 Main 过程。它可以使用参数或不使用参数，可以返回值或不返回值。
注意
如果在类中声明 Main 过程，则必须使用 Shared 关键字。在模块中，Main 不必是 Shared。
最简单的方法是声明一个不使用参数或不返回值的 Sub 过程。
Module mainModule
Sub Main()
MsgBox("The Main procedure
is starting the application.")
' Insert call to appropriate
starting place in your code.
MsgBox("The application
is terminating.")
End Sub
End ModuleMain
还可以返回一个 Integer 值，操作系统将其作为程序的退出代码。其他程序可以态隐通过检查 Windows ERRORLEVEL 值大没来测试该代码。若要返回退出代码，必须将VB.NET Main过程声明为 Function 过程而不是 Sub 过程。
Module mainModule
Function Main() As Integer
MsgBox("The Main procedure
is starting the application.")
Dim returnValue As Integer = 0
' Insert call to appropriate
starting place in your code.
' On return, assign appropriate
value to returnValue.
' 0 usually means successful
completion.
MsgBox("The application is
terminating with error level " _
CStr(returnValue) ".")
Return returnValue
End Function
End ModuleMain
还可以采用一个 String 数组作为参数。数组中的每个字符串均包含一个用于调用程序的命令行参数。您可以根据它们的值采取不同的操作。
Module mainModule
Function Main(ByVal cmdArgs()
As String) As Integer
MsgBox("The Main procedure is
starting the application.")
Dim returnValue As Integer = 0
' See if there are any arguments.
If cmdArgs.Length 0 Then
For argNum As Integer = 0 To
UBound(cmdArgs, 1)
' Insert code to examine cmdArgs
(argNum) and take
' appropriate action based on its value.
Next argNum
End If
' Insert call to appropriate starting
place in your code.
' On return, assign appropriate
value to returnValue.
' 0 usually means successful completion.
MsgBox("The application is
terminating with error level " _
CStr(returnValue) ".")
Return returnValue
End Function
End Module
可以声明VB.NET Main过程来检查命令行参数而不返回退出代码，如下所示。
Module mainModule
Sub Main(ByVal cmdArgs() As String)
MsgBox("The Main procedure is
starting the application.")
Dim returnValue As Integer = 0
' See if there are any arguments.
If cmdArgs.Length 0 Then
For argNum As Integer = 0 To
UBound(cmdArgs, 1)
' Insert code to examine cmdArgs
(argNum) and take
' appropriate action based on its value.
Next argNum
End If
' Insert call to appropriate
starting place in your code.
MsgBox("The application is
terminating."
End Sub
End Module
分析：
添加一个新窗体，设置属性.TopMost=True ,窗体显宽纤示在前面。
设置一下透明度增加效果。如果使用窗体闪烁，可以添加时间控件，
设置时手悉间段变更窗毕巧乎体透明度来达到你想要的效果。
