Mostrar mensaje mientras se cargan los datos

[astrow25]

Tengo una bd que es la principal que carga los datos en TextBox, luego tengo 3 datagridView que digamos que estan relacionadas entre si mediante el dni. Lo que hago para meter los datos en las datagridView es asi:

Me.oDataAdapterSub = New MySqlDataAdapter("Select * from informaticaforma where dni='" & me.txtdni.text & "' order by programa", miConexion)


Y lo que hago es el form load llamar a la Carga de cada una de las 3

CargaTablaInformatica()

Para añadir y modificar datos uso procedimientos almacenados:

Using Me.oConexion
oConexion.Open()
Dim _CMD As New MySqlCommand
With _CMD
.CommandType = CommandType.StoredProcedure
.CommandText = "AddDatos"
.Connection = oConexion
.Parameters.Add(New MySqlParameter("dni", Trim(Me.txtDni.Text)))
'demas parametros
.ExecuteNonQuery() 'ejecuta el comando
.Dispose()
End With
oConexion.Close()
End Using

Para buscar los datos utilizo

Dim sql As String
sql = "SELECT * from gestioncv "
Dim lHayDatos As Boolean
lHayDatos=False
'Compruebo si en los textbox estan vacios o no para seguir construyendo el sql
sql = sql + " order by apellidos,nombre"
Me.oDataAdapter = New MySqlDataAdapter(sql, Me.oConexion)
Me.oDataSet = New DataSet
oConexion.Open()
Me.oDataAdapter.Fill(oDataSet, "gestioncv")
oConexion.Close()

Y para finalizar, para cargar los datos

Desde el load

Me.oDataAdapter = New MySqlDataAdapter("Select * from datos order by apellidos,nombre desc", oConexion)
'Crear dataset
Me.oDataSet = New DataSet
oConexion.Open()
'llenar con el adaptador el dataset
Me.oDataAdapter.Fill(oDataSet, "gestioncv")
oConexion.Close()
'establecer el indicador del registro
'a mostrar de la tabla
Me.iPosicionActual = 0
tbPanel.SelectTab(0)
Me.CargarDatos()

En esta funcion CargarDatos, voy cargando los datos en el textbox

Me gustaria que me mostraria un progressbar

Muchas gracias y un cordial saludo