about connection string

in the script task in ssis i want to connct to sql server and get query how can connect to it? The below code is mine but it has mistake.

On Error Resume Next
        Dim ObjCnn As SqlClient.SqlConnection
        Dim SqlStr As String
        Dim Objcmd

        ObjCnn = CreateObject("ADODB.Connection")

        Objcmd = CreateObject("ADODB.Recordset")

        SqlStr = "exec sp_who"

        ObjCnn.ConnectionString = "Provider=SQLOLEDB.1;integrated security=SSPI;data source=" & Dts.Variables("User::NamServer").Value.ToString() & ";persist security info=False;initial catalog=" & Dts.Variables("User::NameDataBase").Value.ToString()

        ObjCnn.Execute(SqlStr)

        If Err() > 0 Then

            Dts.TaskResult = ScriptResults.Failure
        Else
            Dts.TaskResult = ScriptResults.Success
        End If