Need Help for NSDataCombo

I Have been Strugling to Write the Code for Multicolumn to Display two feilds in m combo below is my code for the it keeps on giving the Error DATASOURCE NAME NOT FOUND AND NO DEFAULT DRIVER SPECIFIED where as i already supplied this plz have look Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strSQL As String On Error GoTo General_Error cn.Open SysConnect (This is Connection String where everey thing is supplied) rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic strSQL = "" strSQL = "Select * from cus0001s" rs.Open Trim(strSQL), cn, , , adCmdUnspecified NSDataCombo1.Columnclear If Not rs.EOF And Not rs.BOF Then While Not rs.EOF If Not IsNull(rs!cid) Then NSDataCombo1.AddColumn Trim(rs!cid) NSDataCombo1.AddColumn Trim(rs!cin) End If rs.MoveNext Wend End If rs.Close cn.Close On Error GoTo 0 Exit Sub General_Error: MsgBox "Error: [" & Err.Number & "] " & Err.Description, vbCritical + vbOKOnly, "Stock Control Management SCM (V1.01)" If rs.State = ADODB.adRecObjectOpen Then rs.Close End If If cn.State = 1 Then cn.Close End If On Error GoTo 0

Private Sub InitNSD()
    With NSDataCombo1
        .ClearColumn
        .AddColumn "CID", 1794.89
        .AddColumn "CIN", 2264.88
        .Connection = cn.ConnectionString
 
        .sqlFields = "cid, cin"
        .sqlTables = "cus0001s"
        .sqlSortOrder = "cin ASC"
 
        .BoundField = "cid"
        .PageBy = 25
        .DisplayCol = 2
 
        .setDropWindowSize 7000, 4000
        .TextReadOnly = True
        .SetDropDownTitle = "cus0001s Record"
    End With
End Sub

With NSDataCombo2
.ClearColumn
.AddColumn "Item Code", 6400.89
.Connection = SysConnect
.sqlFields = "Pc"
.sqlFields = "pc"
.sqlwCondition = "dn='" & NSDataCombo1.Text & "'"
.PageBy = 25
.DisplayCol = 1
.setDropWindowSize 6500, 3000
.TextReadOnly = False
.SetDropDownTitle = "Receiving Voucher Information"
End With