Seek a VB program of lottery, which can write the name into the database and run the lottery? Please send the source code to cht3068@sina.com.

Private? Sub？ BEG_Click()

Timer 1. Enable? =? real

What if? Beg. Title? =? "Start drawing lots"? then

Beg. Title? =? "Stop"

other

Beg. Title? =? "Start drawing lots"

Timer 1. Enable? =? wrong

End? if

End? submarine

Private? Sub？ ADD_Click()

Dim? STR？ As? line

STR？ =? InputBox ("Please enter a name to add")

Dim? Kang En? As? New? ADODB。 relationship

Dim? rs？ As? New? ADODB。 Record set

Dim? Str 1？ As? line

Dim? Str2？ As? line

Dim? Str3？ As? line

Str 1？ =? "Provider = Microsoft. Jet . OLEDB.4.0”

Str2？ =? "data? Source=C:\Documents？ And then what? Setup \ Administrator \ Desktop \DB2. MDB”

Str3？ =? "Jet plane? OLEDB: database? Password = "

Control room. Open it? Str 1？ & amp？ Str2？ & amp？ Str3

strSQL？ =? "choose? *? From where? Table 1? "

rs。 Open? strSQL，？ Kang En? 3,? three

rs。 Add new content

rs！ Name? =? Strength value

rs。 update

rs。 close

Close the control room

End? submarine

Private? Sub？ Form_Load()

Timer 1. Enable? =? wrong

Dim? Kang En? As? New? ADODB。 relationship

Dim? rs？ As? New? ADODB。 Record set

Dim? Str 1？ As? line

Dim? Str2？ As? line

Dim? Str3？ As? line

Str 1？ =? "Provider = Microsoft. Jet . OLEDB.4.0”

Str2？ =? "data? Source=C:\Documents？ And then what? Setup \ Administrator \ Desktop \DB2. MDB”

Str3？ =? "Jet plane? OLEDB: database? Password = "

Control room. Open it? Str 1？ & amp？ Str2？ & amp？ Str3

strSQL？ =? "choose? *? From where? Table 1? "

rs。 Open? strSQL，？ Kang En? 3,? three

TEM？ =? rs。 Record count

rs。 close

For what? Me? =? 1? Where to? Transmission electron microscope

strSQL？ =? "choose? *? From where? Table 1? Where is it? Number = "? & amp？ Me? & amp？" "

rs。 Open? strSQL，？ Kang En? 3,? three

Redim? Save? A(0？ Where to? I)

A (me)? =? rs！ name

rs。 close

Next? I

Close the control room

End? submarine

Private? Sub？ Timer 1 _ Timer ()

Static electricity j？ As? integer

Text 1。 Words? =? Ah (j)

j？ =? j？ +? 1

What if? j？ =? UBound(A)？ then

j？ =? 1

End? if

End? submarine

Code and run, now you set up a database named db2 on the desktop, a field "name".