ppl plz help!!(access database program)

[aZnGloryDay]

hi~

i have to do this data base program for my school final, so i did a airline booking program on vb , but for some reason, the program works perfectly at my house using (odbc, ado and data grid. Qote: 98 microsoft access and vb). everytime i ran the program at my school's comp, when exit the program so i can save the data into the database, there is this error says "selected collating sequence not supported by the operatin system".. it's pretty weird
by the way the school have microsoft office 2003 and novell login system(high secrity for everything, but i still don't think the problem is because of that.
so expert plz help!~!!!!

[aZnGloryDay]

and here is the code i used for the button booking seat system.(right...)

Public price As String
Public searchstring As String

Private Sub a01_Click(Index As Integer)
Dim endof As Boolean
If a01(Index).BackColor <> RGB(255, 0, 0) Then
a01(Index).BackColor = RGB(0, 255, 0)
searchstring = "a" + Right(Str(100 + a01(Index).Index), 2)
Adodc1.Recordset.MoveFirst
endof = False
While Not endof And Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields(0) = searchstring Then
Adodc1.Recordset.Fields(3) = "Sold"
Adodc1.Recordset.Update
endof = True
End If
Adodc1.Recordset.MoveNext
Wend
End If
price = "$377.77"
Label1.Caption = "You have chosen seat: " + searchstring
Label2.Caption = "The price of this price is: " + price
Command1.Enabled = True
End Sub

Private Sub c01_Click(Index As Integer)
Dim endof As Boolean
If c01(Index).BackColor <> RGB(255, 0, 0) Then
c01(Index).BackColor = RGB(0, 255, 0)
searchstring = "c" + Right(Str(100 + c01(Index).Index), 2)
Adodc1.Recordset.MoveFirst
endof = False
While Not endof And Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields(0) = searchstring Then
Adodc1.Recordset.Fields(3) = "Sold"
Adodc1.Recordset.Update
endof = True
End If
Adodc1.Recordset.MoveNext
Wend
End If
price = "$345.59"
Label1.Caption = "You have chosen seat: " + searchstring
Label2.Caption = "The price of this price is: " + price
Command1.Enabled = True
End Sub
Private Sub Command1_Click()
Form5.Adodc1.Recordset.Fields(8) = searchstring
Form7.Visible = False
Form5.Show
End Sub

Private Sub Form_Load()
Dim status As String
Dim SeatIndex As Integer
Dim SeatType As String
Dim endof As Boolean

Command1.Enabled = False
Form7.Adodc1.Recordset.MoveFirst
endof = False

Do While Not endof
status = Form7.Adodc1.Recordset.Fields(3)
SeatIndex = Form7.Adodc1.Recordset.Fields(2)
SeatType = Form7.Adodc1.Recordset.Fields(1)

If status = "Sold" Then

Select Case SeatType

Case "Window"
w01(SeatIndex).BackColor = RGB(255, 0, 0)

Case "Aisle"
a01(SeatIndex).BackColor = RGB(255, 0, 0)
Case "Centre"
c01(SeatIndex).BackColor = RGB(255, 0, 0)

End Select
End If
Form7.Adodc1.Recordset.MoveNext
If Form7.Adodc1.Recordset.EOF Then
endof = True
End If

Loop

End Sub




Private Sub w01_Click(Index As Integer)
Dim endof As Boolean
If w01(Index).BackColor <> RGB(255, 0, 0) Then
w01(Index).BackColor = RGB(0, 255, 0)
searchstring = "w" + Right(Str(100 + w01(Index).Index), 2)
Adodc1.Recordset.MoveFirst
endof = False
While Not endof And Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields(0) = searchstring Then
Adodc1.Recordset.Fields(3) = "Sold"
Adodc1.Recordset.Update
endof = True
End If
Adodc1.Recordset.MoveNext
Wend
End If
price = "$399.99"
Label1.Caption = "You have chosen seat: " + searchstring
Label2.Caption = "The price of this price is: " + price
Command1.Enabled = True
End Sub

[aZnGloryDay]

here is the picture of the error:
i kinda cuted it a little because it's too big....

[pavol]

what line of code does vb highlight when you click on debug?

[aZnGloryDay]

"what line of code does vb highlight when you click on debug?"

it change the color of the Adodc1.Recordset.Update when i press debug!
thanks for help...
comon everyone!

[aZnGloryDay]

y is there no one helping me? comeon...

[cool dude]

people aren't helping u because not a lot of ppl browse VB forums and not a lot of ppl even remember VB that well to be of any help to u. also if u want help include the form b/c i'm too lazy to make the form

P.S. use code tags next time and indent b/c its a lot harder to read your code when u don't indent

[aZnGloryDay]

I finaly figuared out the problem.
thanks for your reply anyway.
and for the indent, i will watch out next time !