For i = 1 To xRow - 1
    With Grid
       SQL = ""
        SQL = "Insert Into defektaobatdet_far Values('" & Trim(TxtNobuktiDefekta.Text) & "','" _
            & .TextMatrix(i, 1) & "','" _
            & .TextMatrix(i, & "','" _
            & "" & "','" _
            & .TextMatrix(i, 5) & "')"
    End With
    koneksi.Execute SQL, , adCmdText
Next i