updating text field based on a Combo box selection?

[sarahjane28]

I am just starting to use VB and have no clue what I am doing, I currently have a combo box that is filled from my database. Now what I don't know how to do is call the function to populate the text boxes based on the user changing the selection in the combox.

Here is my code, Thank you so much! I don't know what I would do without this board : )


Function Item_Open()

Dim myconn, rs, SQL
Dim MyPage
Dim String
Dim Box1

'Set MyPage = Item.GetInspector.ModifiedFormPages("CustomerInformation&quot
Set myconn = CreateObject("ADODB.Connection&quot
myconn.Open "Provider=SQLOLEDB;Data Source=Sutherland3;UID=Sa;PWD=;DATABASE=cmf"
Set rs = CreateObject("ADODB.Recordset&quot
SQL = "SELECT * FROM Incident"
rs.Open SQL, myConn, adOpenDynamic,, adCmdText

if not( rs.eof and rs.bof ) then
do until rs.eof
MyString = MyString & rs("IncidentID&quot & ";"
rs.MoveNext
loop
end if

' Sets the name of page on the form (P.2)
Set MyPage = Item.GetInspector.ModifiedFormPages("CustomerInfo&quot
' Sets Control to a list box called ListBox1.
Set box1 = MyPage.Controls("ComboBox1&quot
' Assign values to the list box.
Box1.PossibleValues = MyString

rs.close

End Function
'*********************************************************************************

Function UpdateInformation()
Dim olemsession
Dim MyPage
Dim rs
Dim IncidID

On Error Resume Next

Set MyPage = Item.GetInspector.ModifiedFormPages("CustomerInfo&quot
Incid = Mypage.Combobox1.value


'----------------------------
'Adding values to Spreadsheet
'----------------------------
'set up path to database
'-----------------------
Set myconn = CreateObject("ADODB.Connection&quot
myconn.Open "Provider=SQLOLEDB;Data Source=Sutherland3;UID=Sarah;PWD=;DATABASE=cms"
Set rs = CreateObject("ADODB.Recordset&quot
SQL = "SELECT * FROM customerincident WHERE Incidentid = " & Incid
rs.Open SQL, myConn, adOpenDynamic,, adCmdText



'---------------------------------
'insert info on spreadsheet
'---------------------------------

MyPage.CustomerName.value = rs("Name&quot
MyPage.Address1.value = rs("Addr1&quot
MyPage.Address2.value = rs("Addr2&quot
MyPage.City.value = rs("City&quot
MyPage.State.value = rs("State&quot
MyPage.Zip.value = rs("Zip&quot
MyPage.Phone.value = rs("Phone1&quot
MyPage.Fax.value = rs("Fax1&quot
MyPage.Description.value = rs("Incident&quot
MyPage.Solution.value = rs("Solution&quot



rs.close

End Function