[الطالب]

سلام

كود :

Private Sub logo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   TextBox1.Text = My.User.Name
   TextBox2.Text = My.Computer.Name

   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no1", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label10.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using
   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no2", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label6.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using
   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no3", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label8.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using
   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no4", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label11.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using
   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no5", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label13.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using
   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no6", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label15.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using
   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM oared", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label17.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using

End Sub

موفقين