(急)不知道那裡出了問題??救救我..

[thchenh]

不知道那裡出了問題?
有誰可以幫我?



Private Sub Combo1_Click()
List1.Clear


If Combo1.ListIndex = 0 Then


List1.AddItem ("A732")
List1.AddItem ("C139")
List1.AddItem ("E1070")
List1.AddItem ("KRZR")
List1.AddItem ("V3i")

ElseIf Combo1.ListIndex = 1 Then

List1.AddItem ("1600")
List1.AddItem ("2650")
List1.AddItem ("3120")
List1.AddItem ("3230")
List1.AddItem ("6080")

Else

List1.AddItem ("K610i")
List1.AddItem ("K800i")
List1.AddItem ("M600i")
List1.AddItem ("W300i")
List1.AddItem ("W800i")


End If
End Sub

Private Sub Command1_Click()



Adodc1.Recordset.AddNew
Adodc1.Recordset("廠牌") = Combo1.Text
Adodc1.Recordset("型號") = List1.Text
For i = 0 To 2
　　If Option1(i) = True Then j = i
Next i

Adodc1.Recordset("外觀") = j
Adodc1.Recordset("藍芽") = Check1.Value

Adodc1.Recordset.Update

MsgBox ("輸入完成")


End Sub



Private Sub Form_Load()
Combo1.AddItem ("Motorola")
Combo1.AddItem ("Nokia")
Combo1.AddItem ("Sony Ericsson")
Adodc1.Refresh

[b][/b]