I highlighted the parts in red that I believe need converted
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSql As String
Dim i As Integer
Dim j As Integer
Dim s As String
Dim s2 As String
Dim sQuestion(2000) As String
Set db = New ADODB.Connection
db.ConnectionString = "PROVIDER=SQLNCLI10;SERVER=SVBKSA69901M2W\IKM_QA;DATABASE=RiskControl;TRUST ED_CONNECTION=yes;"
db.Open
Set rs = New ADODB.Recordset