我也遇到你的问题最近，后来解决了
我看了你的语句，没有错啊
我觉得很有可能是数据库连接问题，你有没有拖sqlconnection控件
呵呵，水平有限，只能想到这些

try

要测试的代码
Catch ex As Exception
MsgBox(ex.ToString)

End Try

用这测试下到底是什么错了 也可以把LOCALHOST改成计算机名字试试 或则改成“.” 有点时候因为系统的原因有区别的

Imports System.Data.SqlClient
Dim connStr As String = "server=localhost;database=111;Integrated Security=SSPI"

Dim myconn As New SqlConnection(connStr)

[此贴子已经被作者于2006-8-16 9:46:49编辑过]