链接不上SQL SERVER数据库,该怎么解决

链接不上SQL SERVER数据库
    最近尝试链接一个SQL SERVER数据库时候，发现无论如何也链接不上SQL数据库，特请教是什么情况？
注：sql 数据库我装了两个版本，2005跟2012，服务里面，SQL SERVER(sqlexpress)描述：提供数据的存储。。。，已启动。在打开SQL Management studio express，自动跳出服务器名称及Windows身份验证，可以连接上服务器。我在服务器里面新建haier的数据库，haier中可以新建一个dbo.table1的表。  当我运行该程序时候，在OleDbCon.Open()跳出框框提示错误:
未处理oledbeception             “System.Data.OleDb.OleDbException”类型的未经处理的异常在 System.Data.dll 中发生,其他信息: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问。


代码如下：
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class Form1
    Dim datars As System.Data.OleDb.OleDbDataReader
    Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim icount As Integer
        Dim itemstring As String

        OleDbCon.ConnectionString = "provider=SQLOLEDB;"
        OleDbCon.ConnectionString += "data sourse=(local);"
        OleDbCon.ConnectionString += "initial catalog=table1;"
        OleDbCon.ConnectionString += "integrated security=sspi;"
        OleDbCon.Open()
        OleDbCmd.Connection = OleDbCon
        OleDbCmd.CommandType = CommandType.TableDirect
        OleDbCmd.CommandText = "Table1"
        datars = OleDbCmd.ExecuteReader
        While datars.Read
            For icount = 0 To datars.FieldCount - 1
                itemstring = String.Format("{0,10}", datars.GetName(icount)) + ":" + datars.GetValue(icount).ToString
                ListBox1.Items.Add(itemstring)

            Next
            ListBox1.Items.Add("______________")

        End While


    End Sub
End Class
------解决思路----------------------
访问sql怎么用oledb呢？整个都不对。