barra de progresso

[guicisoto 0]

estou tentando fazer o seguinte:

o cara entra no sistema ai é verificado se a chave dele esta ativa

se sim ele vai para a pagina de login se não ele vai para uma tela de ativação...

ai enquanto a tela inicial faz essa verificação eu queria que a barra de rolagem fosse junto como fazer?

 

fiz o seguinte codigo ate agora

Imports MySql.Data.MySqlClient
Public Class Verifica
   Dim conexao As New MySqlConnection("server=localhost;User Id=root;database=cisotos")
   Private Sub Verifica_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Try
           conexao.Open()
           Dim cmd As New MySqlCommand(String.Format("Select * from chave_local where chave='ativa'"), conexao)
           cmd.CommandType = CommandType.Text
           Dim dr As MySqlDataReader = cmd.ExecuteReader()
           If dr.Read() Then
               Timer1.Start()
           Else
               MessageBox.Show("Erro ao verificar a chave de segurança", "erro na chave de segurança", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
           End If
       Catch ex As Exception
           MessageBox.Show("erro inesperado", "Alerta de Erro", _
              MessageBoxButtons.OK, MessageBoxIcon.Error)
       Finally
           If conexao.State = ConnectionState.Open Then conexao.Close()
       End Try
   End Sub
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       ProgressBar1.Increment(1)
       If ProgressBar1.Value = ProgressBar1.Maximum Then
           Timer1.Stop()
           Me.Hide()
           Login.Show()
       Else
           Me.Hide()
           chave.Show()
       End If
   End Sub
End Class

 

obrigado pela ajuda

[guicisoto 0]

ei tirei a barra de progresso do codigo

 

agora estou fazendo da seguinte forma:

Imports MySql.Data.MySqlClient
Public Class Verifica
   Dim conexao As New MySqlConnection("server=localhost;User Id=root;database=cisotos")
   Private Sub Verifica_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Try
           conexao.Open()
           Dim sql As New MySqlCommand(String.Format("Select count('chave') from chave_local where chave='ativa'"), conexao)
           Dim dr As MySqlDataReader = sql.ExecuteReader()
           Dim novo As Integer = dr.Read()
           If novo > 1 Then
               Label2.Text = novo.ToString()
               'Me.Finalize()
               Login.Show()
           Else
               'Me.Finalize()
               chave.Show()
           End If
       Catch ex As Exception
           MessageBox.Show("erro inesperado", "Alerta de Erro", _
              MessageBoxButtons.OK, MessageBoxIcon.Error)
       Finally
           If conexao.State = ConnectionState.Open Then conexao.Close()
       End Try
   End Sub
End Class

so que o count no mysql ta voltando resultado negativo...

e la no myadmin volta resultado positivo...

alguem sabe pq?