Italian Query in B4I

Dim ResultSet1 As ResultSet
        
    Query = "SELECT * FROM mytabel WHERE xxxx = ?"
    
    ResultSet1 = SQL1.ExecQuery2(Query, Array As String (editxxx.text))
    If ResultSet1.RowCount> 0 Then
    
    Do While ResultSet1.NextRow

SQLDataBasePath = xui.DefaultFolder

    If File.Exists(SQLDataBasePath, nomedbpaz) = False Then
                
        SQL1.Initialize(SQLDataBasePath, nomedbpaz, True)
        CreateDataBasepaz
    Else
                
        SQL1.Initialize(SQLDataBasePath, nomedbpaz, True)
        Msgbox("ok","")
    End If

Public SQL1 As SQL

If ResultSet1.RowCount> 0 Then