Spanish java.lang.RuntimeException: Object should first be initialized.

Buenas noches
tengo una pregunta lo que sucede es que me aparece este error


Region Activity Attributes
#FullScreen: True
#IncludeTitle: True
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim mySQL As SQL
Dim myCUR As Cursor

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Dim N As SQL
Dim CF As Cursor
Private qry As String
Public FirstTimeMain As Boolean

Dim Flag_actualizar As Boolean = False

Private VARIABLE As EditText
Private LIMPIAR As Button
Private GUARDAR As Button
Private ListView1 As ListView
Private Potencia As EditText
Dim ID As Int

End Sub

Sub ConnectionDB

Dim ConDB As String
ConDB =DBUtils.CopyDBFromAssets("BASEDEDATOS.db") 'contacs_db = database name
N.Initialize(ConDB, "BASEDEDATOS.db", True)




If FirstTimeMain Then
If File.Exists(File.DirInternal,"BASEDEDATOS.db") = False Then
File.Copy(File.DirAssets,"BASEDEDATOS.db", File.DirInternal, "BASEDEDATOS.db")
End If
End If
N.Initialize(File.DirInternal,"BASEDEDATOS.db",True)
qry="select * FROM datos"
Private Rs As ResultSet = N.ExecQuery(qry)
Do While Rs.NextRow
VARIABLE.Text=VARIABLE.Text & Rs.GetString("VARIABLE") & CRLF
Loop


Log("Cantidad de registros: "&N.ExecQuerySingleResult("select * FROM datos"))

End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:

Activity.LoadLayout("pant")
Activity.Title="BASE DE DATOS"

ListView1.TwoLinesLayout.Label.TextColor = Colors.Black
ListView1.TwoLinesLayout.Label.TextSize = 20
ListView1.TwoLinesLayout.SecondLabel.TextColor = Colors.Black
ListView1.TwoLinesLayout.SecondLabel.TextSize = 16


Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)

Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
If PResult = True Then
'MsgboxAsync("No permission to access external storage", "")
'Return False
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
If PResult = True Then
'MsgboxAsync("No permission to access external storage", "")
'Return False

End If

GUARDAR_Click
End Sub



Sub Activity_Resume



End Sub

Sub Activity_Pause (UserClosed As Boolean)


End Sub




Private Sub List_ItemClick (Position As Int, Value As Object)




End Sub





Private Sub GUARDAR_Click


If VARIABLE.Text = "" Then
Msgbox("NO HA METIDO NADA", "Advertencia")
Return False
End If

If Potencia.Text = "" Then
Msgbox("NADA", "Advertencia")
Return False
End If
N.ExecQuerySingleResult("UPDATE datos SET RPM='"& VARIABLE.Text)


End Sub

Private Sub LIMPIAR_Click




End Sub
estoy batallando con esto lo eh inicializado varias veces