'作用: 连接Sql数据库
    '参数: ServerName 服务器名称,DBName 数据库名, UserID 用户名，UserPwd 用户密码
    Private Function ConnSql(Optional ByVal ServerName As String = "localhost", Optional ByVal DBName As String = "劳动事务托管sql", Optional ByVal UserID As String = "sa", Optional ByVal UserPwd As String = "") As SqlConnection
        Try
            Dim SQLCnnDB As New SqlClient.SqlConnection
            Try
                With SQLCnnDB

                    .ConnectionString = "uid='" & UserID & _
                                        "';pwd='" & UserPwd & _
                                        "';data source='" & ServerName & _
                                        "';initial catalog='" & DBName & _
                                        "';integrated security=SSPI;persist security info=False;"
                    .Open()
                End With

            Catch er As SqlException
                MsgBox(er.Message, MsgBoxStyle.OKOnly + 16, "系统错误")
            End Try

            Return SQLCnnDB
        Catch er As System.Exception
            MsgBox(er.Message, 16, "错误提示")
        End Try
    End Function

http://www.csdn.net/Develop/read_article.asp?id=16437

加上异常以后为：
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO

Module Module1

    Sub Main()
        Try
            Dim myConnection As SqlConnection = New SqlClient.SqlConnection()
            myConnection.ConnectionString = "Data Source=star21;Initial Catalog=lsnow;User ID=sa;Password=sa;integrated security=SSPI;persist security info=False;"
            myConnection.Open()
            myConnection.Close()
        Catch e As FileNotFoundException
            Console.WriteLine("[Data File Missing] {0}", e)
        End Try

    End Sub

End Module

出错信息还为“System.IO.FileNotFoundException'查找不到。”

看看服务器名与表名有没有写错

应该不是吧，
同样的连接字符串使用Oledbconnection就可以连接。
是不是缺少什么文件啊，
这里的.Net版本是v1.1

FileNotFoundException的异常信息内说明了是什么文件没发现，斑竹可否把异常的堆栈给出来呢？

堆栈跟不进去啊，
ConsoleApplication1.exe!ConsoleApplication1.Module1.Main() 行 11   Basic
只能到这一层。

异常信息呢？

本来就没有system.io.dll这个文件呀，System.IO包在mscorlib.dll文件内。

我使用的是日文的系统，异常信息如下：
[Data File Missing] System.IO.FileNotFoundException: 指定されたモジュールが見つ
かりません。
  意思就是：指定的模块查找不到。

   at System.Data.SqlClient.SqlConnection.Open()
   at ConsoleApplication1.Module1.Main() in D:\WWW\1\ConsoleApplication1\Module1
.vb:line 11

那mscorlib.dll这个文件用不用手工导入到工程里面去啊？

你在查询分析器内看可不可以访问这个服务的这个数据库?

可以看到，
而且使用Oledbconnection也可以对它进行各种操作，
就是换成Sqlconnection不可以。

用SqlConnection连别的数据库有问题吗？比如局域网内别的系统的别的数据库。

刚才又连接了一次本地的SQL Server的数据库，还是不行，
出现同样的错误。
个人觉得，应该和数据库没有关系吧。

我的意思是，如果连接别人的数据库还是连不上的话，那可能是API的问题，也就是system.data.dll数据丢失或者与它有关的文件丢失了。

这些都必须具体的看文件才知道，可是我不可能看到你的文件。

你可以考虑重装.net，当然这是没办法的情况下。

以前可以跑吗？

你运行过QuickStart上关于数据库的sample吗？以前或者现在这些sample是否可以跑起来呢？

各位大俠: 我也碰到與數据庫(ＳＱＬ２０００)連接不上的情況,請各位幫幫我吧....

Public Class Form1
    Inherits System.Windows.Forms.Form
    Private a, b, i, conn As String
    Private strconn As New SqlClient.SqlConnection()

 Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        a = TextBox1.Text
        b = TextBox2.Text


        Dim cmd As New SqlClient.SqlCommand("select * from 使用者 where 使用者代號 = '" & a & "' and 密碼 = '" & b & "' ", strconn)
        Dim da As New SqlClient.SqlDataAdapter(cmd)
        Dim ds As New DataSet()

        da.Fill(ds, "使用者")
        If ds.Tables.Count = 0 Then
            MessageBox.Show("您的代號或者密碼不正确,請重新登入!", "提示", MessageBoxButtons.OKCancel + MessageBoxIcon.Warning)
            Exit Sub
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim m As Integer
        m = MessageBox.Show("妳确定要離開是嗎?", "最后确認一下!", MessageBoxButtons.YesNo)
        If m = 6 Then
            Form.ActiveForm.Close()
        Else
            Exit Sub
        End If
        Exit Sub

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = ""
        TextBox2.Text = ""

        conn = "Provider=SQLOLEDB; User ID=sa; Password=system; Data Source = wsk7109b; Initial Catalog = EP條碼系統"
        strconn.ConnectionString = conn


    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
End Class

以上報錯是在" strconn.ConnectionString = conn " 它說我 " 類型'ystem.ArgumentException'未處理例外狀況發生于System.data.dll
其它資訊:連接字串中未知的連接選項:provider

这个Provider=SQLOLEDB错了，在sql连接语句里，没有Provider这个属性。

請教xixigongzhu(夕夕公主):
  那我該怎么改寫才對呢??? 請賜教!!! 多謝!~!

嗯，也感觉应该是文件损坏或丢失的问题，我再重装一下试试看，不过还是谢谢xixigongzhu(夕夕公主)乐。