Android Question error when enterpressed textbox

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

Sub edtcditem_EnterPressed
    mdlConn.CSR1=mdlConn.SQL1.ExecQuery("select * from myTabel where PartCode = '" & edtCdItem.Text & "'")
    If mdlConn.CSR1.RowCount > 0 Then
        ToastMessageShow("The Item is Found...",True)
        'edtProdName.Text = CSR1.GetString("ProdCode")
    Else
        ToastMessageShow("the Item Not Found",True)
    End If
End Sub

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim SQL1 As SQL
    Dim Csr1 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.

    Private lblKode As Label
    Private edtKode As EditText
    Private lblProdName As Label
    Private edtProdName As EditText
    Private lvDtMaster As ListView
End Sub

Sub edtKode_EnterPressed
    mdlconn.CSR1= mdlConn.SQL1.ExecQuery("select * from MasterData where SKU = '" & edtKode.Text & "'")
    If mdlConn.CSR1.RowCount > 0 Then
        'Csr1.Position = 0
        ToastMessageShow("Found",True)
        edtProdName.Text = Csr1.GetString("Name")
    Else
        ToastMessageShow("Not Found",True)
    End If
End Sub