jubing.Open()‘-----连接不上

[猪八戒]

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
Dim jubing As SqlConnection = New SqlConnection("Server=192.168.1.19;DataBase=chen;User ID=as;Password=as")
Dim qiaoliang As New SqlDataAdapter()
Dim dataset As New DataSet()

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
qiaoliang.SelectCommand = New SqlCommand()
qiaoliang.SelectCommand.Connection = jubing
qiaoliang.SelectCommand.CommandText = "select * from ren"
qiaoliang.SelectCommand.CommandType = CommandType.Text

jubing.Open() '这里连接不上
qiaoliang.Fill(dataset, "lsh")
jubing.Close()

End Sub
End Class

但是使用VFP6就可以连上，语句：
ZHIXING='DRIVER=SQL Server;SERVER=192.168.1.19;database=chen;uid=sa;pwd=sa'
jub_bas=SQLStringConnect(ZHIXING)

[htpower]

Dim jubing As SqlConnection = New SqlConnection("Server=192.168.1.19;DataBase=chen;User ID=as;Password=as")


ZHIXING='DRIVER=SQL Server;SERVER=192.168.1.19;database=chen;uid=sa;pwd=sa'

你这两个用户名和密码都不一样~你说呢?上面as下面sa~

Dim jubing As String = "Server=192.168.1.19;packet size=4096;Database=chen;User ID=sa;Password=sa;Trusted_Connection=False"
你再试下?