Help Me Please
Why this Message Box appear with this message "object reference not set to instance of an object"
When I type this code

-------------------------------------------------------------------
Imports System.Data
Imports System.Data.OleDb
Imports System.Text.RegularExpressions
Public Class frmtoken
    Public Enum Data As Integer
        id_Mail = 0
        sbjMail = 1
    End Enum

    Private Sub btnTkn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTkn.Click
        Dim conDtbsSkrip As OleDbConnection = New OleDbConnection( _
                         "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                         "Data Source=E:\dtbsSkrip.mdb")
        Dim cmdDtbsSkrip As New OleDbCommand()
        Dim objDataAdapter As New OleDbDataAdapter
        Dim objDataTable As New DataTable
        Dim r As New Regex("[^a-zA-Z]")

            Try
                conDtbsSkrip.Open()
                cmdDtbsSkrip.Connection = conDtbsSkrip

                'COUNT RECORD sbjMail
                cmdDtbsSkrip.CommandType = CommandType.Text
                cmdDtbsSkrip.CommandText = _
                 "SELECT COUNT (*) FROM tblMail WHERE sbjMail"
                Dim returnValue As Object
                returnValue = cmdDtbsSkrip.ExecuteScalar()

                'GET RECORD id_Mail AND sbjMail
                cmdDtbsSkrip.CommandType = CommandType.Text
                cmdDtbsSkrip.CommandText = _
                 "SELECT * FROM tblMail"
                Dim reader As OleDbDataReader = cmdDtbsSkrip.ExecuteReader()

                'RECORD TO ARRAY 1
                Dim Arr1(returnValue, 1) As String
                Dim x1 As Integer = 0
                Dim Tmp1_sbjMail As String = ""
                Dim Tmp1_idMail As String = ""

                If (reader.HasRows) Then
                    While reader.Read()
                        Tmp1_sbjMail = reader("sbjMail")
                        Tmp1_idMail = reader("id_Mail")
                        If r.Match(Tmp1_sbjMail).Success Then
                            Tmp1_sbjMail = r.Replace(Tmp1_sbjMail, " ")
                        End If
                        Arr1(x1, Data.id_Mail) = Tmp1_idMail
                        Arr1(x1, Data.sbjMail) = Tmp1_sbjMail.Trim.ToLower
                        'lst1.Items.Add("H1:" & Arr1(x1, 0) & "H3:" & Arr1(x1, 1))
                        x1 = x1 + 1
                    End While
                End If
                reader.Dispose()
                reader = Nothing

        'RECORD TO ARRAY 3
                Dim Arr3() As String
                Dim x3 As Integer = 0
                Dim x33 As Integer = 0
                Dim Tmp3_idMail As String = ""
                Dim Tmp3_sbjMail As String = ""
                Dim Tmp3_kata As String = ""

                For x3 = 0 To x1
                    Tmp3_idMail = Arr1(x3, 0)
                    Tmp3_sbjMail = Arr1(x3, 1)
                    Arr3 = Tmp3_sbjMail.Split(" ") 'ERROR START FROM HERE
                    MsgBox(Arr3(x3))
                    For x33 = 0 To UBound(Arr3)
                        Tmp3_kata = Arr3(x33).Trim
                        If (Tmp3_kata <> "") Then
                            cmdDtbsSkrip.CommandType = CommandType.Text
                            cmdDtbsSkrip.CommandText = _
                             "INSERT INTO tblKata(id_Mail,Kata) values (@id_Mail,@Kata)"
                            cmdDtbsSkrip.Parameters.AddWithValue("@id_Mail", Tmp3_idMail)
                            cmdDtbsSkrip.Parameters.AddWithValue("@Kata", Tmp3_kata)
                            cmdDtbsSkrip.Parameters.AddWithValue("@Status", 1)
                            cmdDtbsSkrip.ExecuteNonQuery()
                            cmdDtbsSkrip.Parameters.Clear()
                        End If
                    Next x33
                Next x3

                'VIEW DATA TO FORM
                cmdDtbsSkrip.CommandType = CommandType.Text
                cmdDtbsSkrip.CommandText = _
                 "SELECT * FROM tblKata"
                objDataAdapter.SelectCommand = cmdDtbsSkrip
                objDataAdapter.Fill(objDataTable)
                grdToken.DataSource = objDataTable
                grdToken.AlternatingRowsDefaultCellStyle.BackColor = Color.WhiteSmoke
                grdToken.CellBorderStyle = DataGridViewCellBorderStyle.None
                grdToken.SelectionMode = DataGridViewSelectionMode.FullRowSelect

                MessageBox.Show("END ....")
            Catch OleDbExceptionErr As OleDbException
                MessageBox.Show(OleDbExceptionErr.Message, "Access SQL1")
            Catch InvalidOperationExceptionErr As InvalidOperationException
                MessageBox.Show(InvalidOperationExceptionErr.Messa ge, "Access SQL3")
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            Finally
                cmdDtbsSkrip.Dispose()
                cmdDtbsSkrip = Nothing
                conDtbsSkrip.Close()
                conDtbsSkrip = Nothing

            End Try

    End Sub
End Class
----------------------------------------------------------------------
Help me Please

Thanks

Which actual line is raising the error?

The error start at here : Arr3 = Tmp3_sbjMail.Split(" ") 'ERROR START FROM HERE

Well, I created a project with just this:      and had no errors... I wonder if Split fails on an empty string. I tried, and didn't get an error till the MsgBox line ("Index was outside the bounds of the array").

I tried re-assigning Arr3—no problem...

hmmm....