It is very strange, maybe if I see the code I would be able to help more. The error message is thrown from somewhere below, so it is not very helpful alone in this case. Did you try to add some msgboxes to see important vars?
Hi Ariel_Z
this is the code for connect to data base;
Sub App_Start
form1.show
TIMER1.Enabled =True
listbox1.Clear
textbox1.text="0"
textbox2.text="0"
textbox3.text="0"
textbox4.text="0"
LR.Text=""
label11.Color=128,255,0
label12.Color=128,255,0
label13.Color=128,255,0
label14.Color=128,255,0
connectCLUBS 'This is the point where failure mark
iftablenotexist 'I continued, and I mark this bug
End Sub
Sub connectCLUBS
Connection.New1
Command.New1("", connection.Value)
Connection.Open("Data Source = " & AppPath & "\CLUBS.DB")
End Sub
Sub iftablenotexist
command.CommandText = " SELECT name FROM sqlite_master WHERE type = 'table' AND name = 'TEM20082009'"
Reader.New1
Reader.Value = command.ExecuteReader
If Reader.ReadNextRow= True Then
label10.Color=cGreen
label10.Text="CONECTADO..."
Reader.Close
Else
label10.color=cRed
label10.Text="NO CONECTADO..."
Reader.Close
End If
End Sub
In this part of the code, no error appears
If combobox4.Item (combobox4.SelectedIndex)="DptivoCoruña" Then
Image1.LoadPicture ("icon\Deportivo.png")
End If
If combobox7.Item (combobox7.SelectedIndex)="DptivoCoruña" Then
Image2.LoadPicture ("icon\Deportivo.png")
End If
works perfectly. For this reason, I find it strange that not open the database.
Gracias y un saludo
Oscar