Object reference not set to an instance of an object

public Class RecuritmentManagement

Dim con As New SqlConnection("Integrated Security=SSPI;Initial catalog=Equation;server=localhost\SQLEXPRESS")

public index as Integer

Private Sub RecruitmentManagement_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim sCommand As SqlCommand
    Dim sAdapter As SqlDataAdapter
    Dim sBuilder As SqlCommandBuilder
    Dim sDs As DataSet
    Dim sTable As DataTable

    Try
        
        Dim sql As String = "select Id,SrNo,Name,DOB,ContactNumber,ResNumber, Location,Qualification,CurrentOrganizatn,WorkExp,CalledBy,EQId,Date,SentTo,HRStatus,Process,Department,Designation from BasicInfo,CompanyInfo where BasicInfo.CId=CompanyInfo.CIds"

        sCommand = New SqlCommand(sql, con)
        sAdapter = New SqlDataAdapter(sCommand)  
        sDs = New DataSet()
        sAdapter.Fill(sDs)
        sTable = sDs.Tables(0)

        BasicDetailGrid.DataSource = sDs.Tables(0)


    Catch ex As Exception
        MsgBox(ex.ToString())

    End Try

End Sub

Private Sub BasicDetailGrid_RowEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles BasicDetailGrid.RowEnter

       auto()

   End Sub


Public Sub auto()
       Try
           
           Dim cmd1 As New SqlCommand
           Dim f2
           con.Open()
           Dim cmd2 As New SqlCommand("select COUNT(*) from BasicInfo", con)
           f2 = cmd2.ExecuteScalar
           con.Close()

           index = BasicDetailGrid.CurrentRow.Index '******* ERROR HERE *******

           If (CInt(f2) = 0) Then
               Me.BasicDetailGrid.Rows(index).Cells(0).Value = "1";
               
           Else
           ...

           End If
       Catch ex As Exception
           MsgBox(ex.ToString())
       End Try
End Sub

End Class