How do you populate a datagrid with null values and then add different values to a different data grid. Also Print datagrid

'This is form 3
<System.Runtime.InteropServices.ComVisible(True)> Public Class Form3
 
 
    Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        If e.KeyCode = Keys.Tab Then
            TextBox1.Clear()
            TextBox1.Text.Length.Equals(16)
        End If
 
    End Sub
 
 
    Dim Found As Boolean
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim Found As Boolean
        Dim dTable As New DataTable
        dTable.Columns.Add("Code", GetType(String))
        If TextBox1.Text.Length.Equals(16) Then
            For i As Integer = 0 To Form2.Column1DataGridViewTextBoxColumn.DataGridView.Rows.Count - 2
                If Form2.Column1DataGridViewTextBoxColumn.DataGridView.Item(0, i).Value = TextBox1.Text Then
                    Found = True
                    My.Computer.Audio.Play("O:\Groups\02-Public_IT\Shared_IT\Parvo_noise\beep.wav")
                    Form2.ScannerUnitsDataGrid.DataGridView.Item(1, i).Value = "MATCH"
                    Me.TextBox1.Clear()
                    Exit For
                Else
                    Form2.ScannerUnitsDataGrid.DataGridView.Item(1, i).Value = "NO MATCH"
                    Dim drow As DataRow = dTable.NewRow
                    drow(0) = Form2.ScannerUnitsDataGrid.DataGridView.Item(0, i).Value
                    dTable.Rows.Add(drow)
                End If
            Next
            If Not Found Then
                My.Computer.Audio.Play("O:\Groups\02-Public_IT\Shared_IT\Parvo_noise\yikes.wav")
                MessageBox.Show("not there")
            End If
            Found = False
            Form2.DataGridViewNoMatch.DataSource = dTable
        End If
    End Sub