Public Sub LoadFirma(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn.Open()
Try
dbcmd = New OleDbCommand("SELECT FIRMA FROM tblfirma WHERE ID = 1", conn)
Dim DbReader As OleDbDataReader
DbReader = dbcmd.ExecuteReader
While DbReader.Read
Label1.Text = (DbReader("FIRMA").ToString)
End While
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
conn.Close()
End Sub
'
'Label1
'
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Cooper Black", 21.75!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(161, Byte), Integer), CType(CType(218, Byte), Integer), CType(CType(237, Byte), Integer))
Me.Label1.Location = New System.Drawing.Point(355, 28)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(237, 34)
Me.Label1.TabIndex = 6
Me.Label1.Text = ""
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter