我现在想实现直接从数据库中读取数据，但是总是出错。刚学的新手苦逼啊。
就是直接从数据库里面读取数据存放在Form1上。

有没有谁有VS2005连接SQL2005的源码，只要最基本的能从数据库中读取数据的功能就可以了。

各位大神，求挽。

添加数据源啊

本大神救你：
ConstStr = "User ID=sa; Password=; Initial Catalog=juchengnetcn9; Data Source=."
private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim Koc$ = "select JRname,sdate,edate,tiao,tiao1 from t_jieri where year='" & NUD1.Value & "'"
If SqlDir(Koc) Then
Labmsg.Text = "读取中。。。"
SetValue(Koc, Me.DataGridView1)
Else
Me.DataGridView1.Rows.Clear()
Labmsg.Text = "此年份没有设置节假日！"
End If
End Sub
Public Function SqlDir(ByVal SqlStr As String) As Boolean
Dim Myconn As New SqlConnection(ConnStr)
Dim Tmp As Boolean
Dim Comm As New SqlClient.SqlCommand(SqlStr, Myconn)
If Myconn.State <> ConnectionState.Open Then Myconn.Open()
Dim KKc As SqlClient.SqlDataReader = Comm.ExecuteReader
Tmp = KKc.HasRows
KKc.Close()
Comm.Dispose()
Myconn.Close()
Return Tmp
End Function
Public Function SetValue(ByVal SqlStr As String, ByVal Ocl As DataGridView) As String
Dim Myconn As New SqlConnection(ConnStr)
Dim Tmp As String, Ji% = 0
Dim this2 As New SqlClient.SqlDataAdapter(SqlStr, Myconn)
If Myconn.State <> ConnectionState.Open Then Myconn.Open()
Dim Omg2 As New DataSet
this2.Fill(Omg2, "Os")
Ocl.Rows.Clear()
If Omg2.Tables("os").Rows.Count > 0 Then
For I% = 0 To Omg2.Tables("os").Rows.Count - 1
Ocl.Rows.Add()
For J% = 0 To Omg2.Tables("OS").Columns.Count - 1
Ocl.Rows(I).Cells(J).Value = Omg2.Tables("OS").Rows(I).Item(J).ToString.Trim
Next
Next
Tmp = "A"
Else
Tmp = ""
End If
this2.Dispose()
Myconn.Close()
Return Tmp
End Function