Conversion from type 'DBNull' to type 'String' is not valid.

[Aquaventus]

cuando se pone en rojo debajo es porque no tiene esa propiedad, pero vamos... con el ToString sí dá, entonces ahora el error que te muestra es que en 1 de sus celdas ahi una vacía y eso no se puede convertir a string, tendrías que hacer una validación.

Código vb:

If vtadiariaacum.Table.Rows.Count <= 0 Then
            TextBox21.Text = "0"
        Else
            If vtadiariaacum.ToTable.Rows(0)("Column1").ToString Is DBNull.Value Or vtadiariaacum.ToTable.Rows(0)("Column1").ToString Is String.Empty Then
                MessageBox.Show("Esta vacio la celda")
                TextBox21.Text = "0"
            Else
                TextBox21.Text = vtadiariaacum.ToTable.Rows(0)("Column1")
                Dim resultadovtaacum As Integer = TextBox21.Text
            End If
        End If