从VB向SQL添加了一条数据，怎样立刻读取这条数据的ID

Question

        Dim Conn As ADODB.Connection
        Set Conn = New ADODB.Connection
        Conn.Open ConnectString
        txtSQL = "insert into passenger values('" & textname.Text & "','" & sexx & "','" & textidcard.Text & "','" & textphone & "')"
        Conn.Execute txtSQL
        Conn.Close通过这个语句，向数据库里添加了一条数据，那个表的第一列是标识列，怎样添加完之后可以得出这条数据的标识值呢？

Answer 1

用 SQL 插入的只好根据插入数据查新查询了。如果是利用 Recordset 的 AddNew/Update 方法插入的：With rstTemp
      ' Add new record.
      .AddNew
      !FirstName = "Roger"
      !LastName = "Harui"
      .Update
      ' Move current record pointer to the most recently 
      ' changed or added record.
      .Book = .LastModified
End With