code:
1
2
3
4
5
6
7
8
9
10
11
| Function function_name() Dim value_1 As Integer 'SQL statement SQL "SELECT targeted_item FROM table_name WHERE condition" 'asign the value which targeted_item carried to value_1 value_1=????? End Function |