Söker ur databasen via form till cbo, sen vill jag lägga till ett värde men det får inte finnas i basen? Hur gör jag för att kolla igenom cbo?

(Rookie som fått återfall)

cbo - Collaberation Data Objects?
Eller är det ADO?

Om det är ADO:
<code>
Dim Conn
Dim rsTemp
Dim strSQL
Dim NewValue
NewValue = "Test"
strSQL = "SELECT * FROM TabellNamn WHERE UniktFält = " & SQLText(NewValue)

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "<<<Connection String>>>"

Set rsTemp = Server.CreateObject("ADODB.Recordset")
rsTemp.Open strSQL,Conn,adLockOptimistic, adOpenStatic


If rsTemp.BOF and rsTemp.EOF Then
rsTemp.addNew
....
rsTemp.Update
Else
Response.Write "Posten """ & NewValue & """ finns redan!"
End if

rsTemp.Close
Set rsTemp = Nothing

Conn.Close
Set Conn = Nothing

Function SQLText(Value)
If Len(SQLText ) > 0
SQLText = Replace(Value,"'","''")
Else
SQLText = "Null"
End if
End Function
</code>