jubing.Open()‘-联接不上

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)

------解决方案--------------------
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"
你再试下?