Private Sub ID()
Dim r0 As String = "100"
Dim insert_constr As String = cnSettings()
Dim insert_cmdstr As String = "select [ReceiptNo] from txnFeePayment"
Dim insert_con As New OleDbConnection(insert_constr)
Dim insert_com As New OleDbCommand(insert_cmdstr, insert_con)
insert_con.Open()
Dim insert_DR As OleDbDataReader = insert_com.ExecuteReader
While insert_DR.Read
r0 = insert_DR(0)
End While
insert_con.Close()
txtReceiptNo.Text = r0 + 1
End Sub
Used this code to avoid that error at load event of form . ...