[mr_mgm]

جرب كده ...

PHP كود :

Dim choos As New OleDbCommand("SELECT top 1 amount from boox where costname='" & ComboBox6.Text & "' order by [date] desc", con)
        If con.State = ConnectionState.Open Then con.Close()
        con.Open()
        If choos.ExecuteScalar Is DBNull.Value Then
            TextBox17.Text = ""
            con.Close()
        Else
            TextBox17.Text = choos.ExecuteScalar
            con.Close()
        End If