Split data help

[brss]

Hi, Usually i used to transfer data from Excell multible column to access db. Now i have data in one column seperated by , as mention below. Please what should i change in code below to transfer data from excel to access db? or please advice me how to do it? i appreciate your help in advance.
Excel sheet data:
In column A,

B,Brss,4645656,basmoh,6565,failed

Code

'
'
If rs1.Fields(1) <> vbNullString Then
        strSQLSELECT = "SELECT COUNT(*) AS recCount FROM " & strTable1 & " WHERE "
        strSQLSELECT = strSQLSELECT & "colname = '" & rs1.Fields(0) & "' AND "
        strSQLSELECT = strSQLSELECT & "colnumber = '" & rs1.Fields(0) & "' AND "
        strSQLSELECT = strSQLSELECT & "colICCID = '" & rs1.Fields(0) & "' AND "
        strSQLSELECT = strSQLSELECT & "colstatus ='" & Trim$(rs1.Fields(0)) & "',") & "'"
        rs2.Open strSQLSELECT, cnn, adOpenStatic, adLockOptimistic
        If rs2![recCount] = 0 Then
            strSQL = " (colname,colnumber,colICCID,colstatus) VALUES("
            strSQL = strSQL & "'" & rs1.Fields(1) & "',"
            strSQL = strSQL & "'" & rs1.Fields(2) & "',"
            strSQL = strSQL & "'" & rs1.Fields(3) & "',"
            strSQL = strSQL & "'" & Trim$(rs1.Fields(4)) & "')"
            cnn.Execute strSQl1 & strTable1 & strSQL
            cnn.Execute strSQl1 & strTable2 & strSQL
        End If
'
'